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/cm/link.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/link.sml

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

revision 302, Sat May 29 03:19:59 1999 UTC revision 303, Sun May 30 10:23:20 1999 UTC
# Line 50  Line 50 
50    
51        val recomp_group = doall RecompTraversal.farsbnode        val recomp_group = doall RecompTraversal.farsbnode
52        fun exec_group arg =        fun exec_group arg =
           (DynTStamp.new ();  
53             (doall ExecTraversal.farsbnode arg)             (doall ExecTraversal.farsbnode arg)
54             before FullPersstate.forgetNonShared ())            before FullPersstate.rememberShared ()
55        fun make_group arg =        fun make_group arg =
56            (if recomp_group arg then exec_group arg else false)            (if recomp_group arg then exec_group arg else false)
57    in    in
# Line 71  Line 70 
70                            keep_going = false,                            keep_going = false,
71                            pervasive = perv,                            pervasive = perv,
72                            corenv = corenv }                            corenv = corenv }
73                val g = CMParse.parse param p
74          in          in
75              Say.vsay "[starting]\n";              Option.map f g
             Option.map f (CMParse.parse param p)  
76          end          end
77    
78          val parse = run #1          val parse = run #1

Legend:
Removed from v.302  
changed lines
  Added in v.303

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