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

Diff of /sml/trunk/src/cm/depend/build.sml

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

revision 369, Sun Jul 4 12:55:20 1999 UTC revision 370, Mon Jul 5 08:59:13 1999 UTC
# Line 230  Line 230 
230                  SOME sk => eval sk                  SOME sk => eval sk
231                | NONE => DE.EMPTY                | NONE => DE.EMPTY
232    
233                fun addTrap n = (n, ref false)
234              val n = DG.SNODE { smlinfo = i,              val n = DG.SNODE { smlinfo = i,
235                                 localimports = !li,                                 localimports = map addTrap (!li),
236                                 globalimports = !gi }                                 globalimports = map addTrap (!gi) }
237          in          in
238              (n, e)              (n, e)
239          end          end

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

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