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/compile/generic.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/compile/generic.sml

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

revision 354, Fri Jun 25 08:36:12 1999 UTC revision 355, Sat Jun 26 13:17:30 1999 UTC
# Line 19  Line 19 
19    
20          val bnode : GP.info -> DG.bnode -> envdelta option          val bnode : GP.info -> DG.bnode -> envdelta option
21          val group : GP.info -> GG.group -> result option          val group : GP.info -> GG.group -> result option
22            val impexpmap :
23                GP.info -> DependencyGraph.impexp SymbolMap.map -> result option
24    
25          (* if you go through the "snode" interface, then          (* if you go through the "snode" interface, then
26           * you must reset explicitly when you are done. *)           * you must reset explicitly when you are done. *)
# Line 122  Line 124 
124    
125          fun impexp gp (n, _) = Option.map CT.env2result (farsbnode gp n)          fun impexp gp (n, _) = Option.map CT.env2result (farsbnode gp n)
126    
127          fun group gp (GG.GROUP { exports, ... }) =          fun impexpmap gp m =
128              (foldl (layerwork (#keep_going (#param gp),              (foldl (layerwork (#keep_going (#param gp),
129                                 CT.rlayer,                                 CT.rlayer,
130                                 impexp gp))                                 impexp gp))
131                     (SOME CT.empty)                     (SOME CT.empty)
132                     (SymbolMap.listItems exports))                     (SymbolMap.listItems m))
133              before reset ()              before reset ()
134    
135            fun group gp (GG.GROUP { exports, ... }) = impexpmap gp exports
136      end      end
137  end  end

Legend:
Removed from v.354  
changed lines
  Added in v.355

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