SCM Repository
Diff of /sml/trunk/src/ml-burg/burg.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 7, Sun Jan 18 00:59:30 1998 UTC | revision 8, Sun Jan 18 01:01:29 1998 UTC | |
|---|---|---|
| # | Line 3 | Line 3 |
| 3 | * COPYRIGHT (c) 1995 AT&T Bell Laboratories. | * COPYRIGHT (c) 1995 AT&T Bell Laboratories. |
| 4 | * | * |
| 5 | * $Log$ | * $Log$ |
| 6 | * Revision 1.1 1997/10/04 23:33:22 monnier | * Revision 1.1.1.2 1998/01/18 01:00:04 monnier |
| 7 | * Initial revision | * *** empty log message *** |
| 8 | * | |
| 9 | * Revision 1.2 1997/10/28 15:02:45 george | |
| 10 | * Made compatible with new basis | |
| 11 | * | * |
| 12 | # Revision 1.1.1.1 1997/01/14 01:37:59 george | # Revision 1.1.1.1 1997/01/14 01:37:59 george |
| 13 | # Version 109.24 | # Version 109.24 |
| # | Line 884 | Line 887 |
| 887 | saynl " datatype s_node ="; | saynl " datatype s_node ="; |
| 888 | iter (loop_node, !nb_t); | iter (loop_node, !nb_t); |
| 889 | saynl " withtype s_tree = s_cost * s_rule * s_node * tree\n\n"; | saynl " withtype s_tree = s_cost * s_rule * s_node * tree\n\n"; |
| 890 | saynl " val sub = System.Unsafe.subscript"; | saynl " val sub = Array.sub"; |
| 891 | saynl " val update = System.Unsafe.update" | saynl " val update = Array.update" |
| 892 | end | end |
| 893 | ||
| 894 |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
