SCM Repository
Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml
Parent Directory
|
Revision Log
|
Patch
revision 369, Sun Jul 4 12:55:20 1999 UTC | revision 370, Mon Jul 5 08:59:13 1999 UTC | |
---|---|---|
# | Line 39 | Line 39 |
39 | fun new_smlinfo i = ()) | fun new_smlinfo i = ()) |
40 | ||
41 | structure Recomp = RecompFn (structure PS = RecompPersstate) | structure Recomp = RecompFn (structure PS = RecompPersstate) |
42 | structure RT = CompileGenericFn (structure CT = Recomp) | structure RT = CompileGenericFn (structure CT = Recomp |
43 | val thinTraversal = false) | |
44 | ||
45 | fun recomp gp g = isSome (RT.group gp g) | fun recomp gp g = isSome (RT.group gp g) |
46 |
|
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |