Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/FLINT/main/flintcomp.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/main/flintcomp.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 185, Tue Nov 10 21:01:05 1998 UTC revision 186, Wed Nov 11 05:24:43 1998 UTC
# Line 103  Line 103 
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

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0