SCM Repository
Diff of /sml/trunk/src/compiler/FLINT/clos/nfreeclose.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 16, Wed Mar 11 21:00:04 1998 UTC | revision 70, Fri Apr 3 00:06:55 1998 UTC | |
|---|---|---|
| # | Line 618 | Line 618 |
| 618 | in (#1(freefix (0,[]) fe'), getsn, freeV, ekfunsP) | in (#1(freefix (0,[]) fe'), getsn, freeV, ekfunsP) |
| 619 | end (* function freemapClose *) | end (* function freemapClose *) |
| 620 | ||
| 621 | (* | |
| 622 | val freemapClose = Stats.doPhase(Stats.makePhase "Compiler 079 freemapClose") | val freemapClose = Stats.doPhase(Stats.makePhase "Compiler 079 freemapClose") |
| 623 | freemapClose | freemapClose |
| 624 | *) | |
| 625 | ||
| 626 | end | end |
| 627 | end (* structure FreeClose *) | end (* structure FreeClose *) |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
