SCM Repository
[smlnj] Diff of /sml/trunk/src/compiler/FLINT/main/flintcomp.sml
Diff of /sml/trunk/src/compiler/FLINT/main/flintcomp.sml
Parent Directory
|
Revision Log
|
Patch
103 |
|
|
104 |
(* pseudo FLINT phases *) |
(* pseudo FLINT phases *) |
105 |
| runphase ("id",(f,r,l)) = (f,r,l) |
| runphase ("id",(f,r,l)) = (f,r,l) |
106 |
|
| runphase (p as "collect",(f,r,l)) = (fcollect f, r, p) |
107 |
| runphase (p as "print",(f,r,l)) = |
| runphase (p as "print",(f,r,l)) = |
108 |
(say("\n[ After "^l^"... ]\n\n"); |
(say("\n[ After "^l^"... ]\n\n"); |
109 |
PPFlint.printFundec f; (f,r,l) |
PPFlint.printFundec f; (f,r,l) |
|
Legend:
Removed from v.185 |
|
changed lines |
|
Added in v.186 |
|
|