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 301, Fri May 28 09:43:39 1999 UTC revision 302, Sat May 29 03:19:59 1999 UTC
# Line 51  Line 51 
51        val recomp_group = doall RecompTraversal.farsbnode        val recomp_group = doall RecompTraversal.farsbnode
52        fun exec_group arg =        fun exec_group arg =
53            (DynTStamp.new ();            (DynTStamp.new ();
54             doall ExecTraversal.farsbnode arg)             (doall ExecTraversal.farsbnode arg)
55               before FullPersstate.forgetNonShared ())
56        fun make_group arg =        fun make_group arg =
57            (if recomp_group arg then exec_group arg else false)            (if recomp_group arg then exec_group arg else false)
58    in    in

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

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