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 488, Tue Nov 23 11:07:04 1999 UTC revision 489, Tue Nov 23 12:55:00 1999 UTC
# Line 128  Line 128 
128                let val (f,fi) = split f in (f, fi, fk, p) end                let val (f,fi) = split f in (f, fi, fk, p) end
129    
130              (* pseudo FLINT phases *)              (* pseudo FLINT phases *)
131              | ("pickle",   _)           =>  (*          | ("pickle",   _)           => *)
132                (valOf(UnpickMod.unpickleFLINT(PickMod.pickleFLINT(SOME f))),  (*            (valOf(UnpickMod.unpickleFLINT(PickMod.pickleFLINT(SOME f))), *)
133                 UnpickMod.unpickleFLINT(PickMod.pickleFLINT fi),  (*             UnpickMod.unpickleFLINT(PickMod.pickleFLINT fi), *)
134                 fk, p)  (*             fk, p) *)
135              | ("collect",_) => (fcollect f, fi, fk, p)              | ("collect",_) => (fcollect f, fi, fk, p)
136              | _ =>              | _ =>
137                ((case (p,fk)                ((case (p,fk)

Legend:
Removed from v.488  
changed lines
  Added in v.489

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