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 587, Thu Mar 30 09:01:52 2000 UTC revision 632, Sat Apr 29 15:50:42 2000 UTC
# Line 96  Line 96 
96    
97          fun groupsOf g = let          fun groupsOf g = let
98              fun subgroups (GG.GROUP { kind = GG.NOLIB x, ... }) = #subgroups x              fun subgroups (GG.GROUP { kind = GG.NOLIB x, ... }) = #subgroups x
99                | subgroups (GG.GROUP { kind = GG.LIB x, ... }) = #subgroups x                | subgroups (GG.GROUP { kind = GG.LIB { kind = GG.DEVELOPED x,
100                                                          ... },
101                                          ... }) = #subgroups x
102                | subgroups _ = []                | subgroups _ = []
103              fun go (GG.ERRORGROUP, a) = a              fun go (GG.ERRORGROUP, a) = a
104                | go (g as GG.GROUP { grouppath, ... }, a) = let                | go (g as GG.GROUP { grouppath, ... }, a) = let
# Line 124  Line 126 
126                                  val seen = SrcPathSet.add (seen, p)                                  val seen = SrcPathSet.add (seen, p)
127                              in                              in
128                                  case kind of                                  case kind of
129                                      GG.STABLELIB _ =>                                      GG.LIB { kind = GG.STABLE _, ... } =>
130                                      (seen, SrcPathMap.insert (res, p, g))                                      (seen, SrcPathMap.insert (res, p, g))
131                                    | _ => (seen, res)                                    | _ => (seen, res)
132                              end                              end

Legend:
Removed from v.587  
changed lines
  Added in v.632

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