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 302, Sat May 29 03:19:59 1999 UTC revision 303, Sun May 30 10:23:20 1999 UTC
# Line 201  Line 201 
201                  h :: t => (report (h, t); NONE)                  h :: t => (report (h, t); NONE)
202                | [] => normal_processing ()                | [] => normal_processing ()
203          end          end
   
         fun finalResult g =  
             (SmlInfo.forgetAllBut (Reachable.reachable g);  
              (g, ginfo))  
204      in      in
205          Option.map finalResult (mparse (group, []))          case mparse (group, []) of
206                NONE => NONE
207              | SOME g =>
208                    if CheckSharing.check (g, ginfo) then
209                        (SmlInfo.forgetAllBut (Reachable.reachable g);
210                         SOME (g, ginfo))
211                    else NONE
212      end      end
213  end  end

Legend:
Removed from v.302  
changed lines
  Added in v.303

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