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 486, Thu Nov 18 14:05:46 1999 UTC revision 487, Fri Nov 19 07:18:17 1999 UTC
# Line 320  Line 320 
320                  case pro of                  case pro of
321                      NONE => NONE                      NONE => NONE
322                    | SOME pr =>                    | SOME pr =>
323                            (SmlInfo.cleanGroup group;
324                          if stabthis then stabilize pr                          if stabthis then stabilize pr
325                          else SOME pr                           else SOME pr)
326              end              end
327              handle LrParser.ParseError => NONE              handle LrParser.ParseError => NONE
328          in          in
# Line 329  Line 330 
330              else normal_processing ()              else normal_processing ()
331          end          end
332      in      in
333            SmlInfo.newGeneration ();
334          case mparse (group, [], ref false, stabthis, NONE) of          case mparse (group, [], ref false, stabthis, NONE) of
335              NONE => NONE              NONE => NONE
336            | SOME g => let            | SOME g => SOME (g, ginfo)
                 val reach1 = Reachable.reachable g  
                 val reach2 = Reachable.reachable' (pending ())  
                 val reach = SrcPathSet.union (reach1, reach2)  
             in  
                 SmlInfo.forgetAllBut reach;  
                 SOME (g, ginfo)  
             end  
337      end      end
338  end  end

Legend:
Removed from v.486  
changed lines
  Added in v.487

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