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

Diff of /sml/trunk/src/cm/parse/parse.sml

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

revision 380, Fri Jul 9 05:22:18 1999 UTC revision 387, Mon Jul 26 02:44:20 1999 UTC
# Line 293  Line 293 
293      in      in
294          case mparse (group, [], ref false, stabthis, NONE) of          case mparse (group, [], ref false, stabthis, NONE) of
295              NONE => NONE              NONE => NONE
296            | SOME g =>            | SOME g => let
                 if CheckSharing.check (g, ginfo) then  
                     let  
297                          val reach1 = Reachable.reachable g                          val reach1 = Reachable.reachable g
298                          val reach2 = Reachable.reachable' (pending ())                          val reach2 = Reachable.reachable' (pending ())
299                          val reach = SrcPathSet.union (reach1, reach2)                          val reach = SrcPathSet.union (reach1, reach2)
# Line 303  Line 301 
301                          SmlInfo.forgetAllBut reach;                          SmlInfo.forgetAllBut reach;
302                          SOME (g, ginfo)                          SOME (g, ginfo)
303                      end                      end
                 else NONE  
304      end      end
305  end  end

Legend:
Removed from v.380  
changed lines
  Added in v.387

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