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

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

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

revision 714, Mon Oct 23 23:39:43 2000 UTC revision 715, Thu Nov 2 07:51:04 2000 UTC
# Line 33  Line 33 
33              fun k' m = Cons (bininfo i, k (stab_reg (m, i)))              fun k' m = Cons (bininfo i, k (stab_reg (m, i)))
34          in          in
35              if stab_isreg (m, i) then k m              if stab_isreg (m, i) then k m
36              else do_list bnode l (do_list farbnode g k') m              else do_list bnode l (do_list lazy_farbnode g k') m
37          end          end
38    
39          and farbnode (_, n) = bnode n          and farbnode (_, n) = bnode n
40    
41            and lazy_farbnode th = farbnode (th ())
42    
43          fun snode (DG.SNODE n) k m = let          fun snode (DG.SNODE n) k m = let
44              val { smlinfo = i, localimports = l, globalimports = g } = n              val { smlinfo = i, localimports = l, globalimports = g } = n
45              fun k' m = Cons (smlinfo i, k (sml_reg (m, i)))              fun k' m = Cons (smlinfo i, k (sml_reg (m, i)))

Legend:
Removed from v.714  
changed lines
  Added in v.715

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