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 310, Wed Jun 2 07:28:27 1999 UTC revision 311, Wed Jun 2 09:08:48 1999 UTC
# Line 42  Line 42 
42    
43        fun bn2statenv gp i = #1 (#stat (valOf (RecompTraversal.bnode gp i)))        fun bn2statenv gp i = #1 (#stat (valOf (RecompTraversal.bnode gp i)))
44    
       structure Stabilize =  StabilizeFn (val bn2statenv = bn2statenv)  
   
       structure Parse = ParseFn (structure Stabilize = Stabilize)  
   
45        fun doall farsbnode (GroupGraph.GROUP { exports, ... }, gp) = let        fun doall farsbnode (GroupGraph.GROUP { exports, ... }, gp) = let
46            fun one ((fsbn, _), false) = false            fun one ((fsbn, _), false) = false
47              | one ((fsbn, _), true) =              | one ((fsbn, _), true) =
# Line 60  Line 56 
56            before FullPersstate.rememberShared ()            before FullPersstate.rememberShared ()
57        fun make_group arg =        fun make_group arg =
58            (if recomp_group arg then exec_group arg else false)            (if recomp_group arg then exec_group arg else false)
59    
60          structure Stabilize =  StabilizeFn (val bn2statenv = bn2statenv
61                                              val recomp = recomp_group)
62    
63          structure Parse = ParseFn (structure Stabilize = Stabilize)
64    in    in
65      structure CM = struct      structure CM = struct
66    

Legend:
Removed from v.310  
changed lines
  Added in v.311

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