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

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

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

revision 569, Tue Mar 7 04:01:07 2000 UTC revision 573, Thu Mar 9 15:23:52 2000 UTC
# Line 93  Line 93 
93          end          end
94    
95          fun groupsOf g = let          fun groupsOf g = let
96              fun subgroups (GG.GROUP { kind = GG.NOLIB sg, ... }) = sg              fun subgroups (GG.GROUP { kind = GG.NOLIB x, ... }) = #subgroups x
97                | subgroups (GG.GROUP { kind = GG.LIB (_, sg), ... }) = sg                | subgroups (GG.GROUP { kind = GG.LIB x, ... }) = #subgroups x
98                | subgroups _ = []                | subgroups _ = []
99              fun go (g as GG.GROUP { grouppath, ... }, a) = let              fun go (g as GG.GROUP { grouppath, ... }, a) = let
100                  val sgl = subgroups g                  val sgl = subgroups g

Legend:
Removed from v.569  
changed lines
  Added in v.573

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