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 369, Sun Jul 4 12:55:20 1999 UTC revision 370, Mon Jul 5 08:59:13 1999 UTC
# Line 29  Line 29 
29              fun k' m = bininfo i :: k (stab_reg (m, i))              fun k' m = bininfo i :: k (stab_reg (m, i))
30          in          in
31              if stab_isreg (m, i) then k m              if stab_isreg (m, i) then k m
32              else do_list bnode l (do_list farbnode g k') m              else do_list (bnode o #1) l (do_list (farbnode o #1) g k') m
33          end          end
34    
35      and farbnode (_, n) = bnode n      and farbnode (_, n) = bnode n
# Line 39  Line 39 
39          fun k' m = smlinfo i :: k (sml_reg (m, i))          fun k' m = smlinfo i :: k (sml_reg (m, i))
40      in      in
41          if sml_isreg (m, i) then k m          if sml_isreg (m, i) then k m
42          else do_list snode l (do_list farsbnode g k') m          else do_list (snode o #1) l (do_list (farsbnode o #1) g k') m
43      end      end
44    
45      and farsbnode (_, DG.SB_BNODE n) = bnode n      and farsbnode (_, DG.SB_BNODE n) = bnode n

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