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/bootstrap/build-initdg.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/bootstrap/build-initdg.sml

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

revision 370, Mon Jul 5 08:59:13 1999 UTC revision 371, Mon Jul 5 14:34:41 1999 UTC
# Line 93  Line 93 
93                                    | n as DG.SB_BNODE _ => (li, (NONE, n) :: gi)                                    | n as DG.SB_BNODE _ => (li, (NONE, n) :: gi)
94                              val (li, gi) = foldr one ([], []) args                              val (li, gi) = foldr one ([], []) args
95                              val i = sml (file, split)                              val i = sml (file, split)
                             fun addTrap n = (n, ref false)  
96                              val n = DG.SNODE { smlinfo = i,                              val n = DG.SNODE { smlinfo = i,
97                                                localimports = map addTrap li,                                                 localimports = li,
98                                                globalimports = map addTrap gi }                                                 globalimports = gi }
99                          in                          in
100                              loop (split,                              loop (split,
101                                    StringMap.insert (m, name, DG.SB_SNODE n),                                    StringMap.insert (m, name, DG.SB_SNODE n),

Legend:
Removed from v.370  
changed lines
  Added in v.371

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