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

Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml

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

revision 354, Fri Jun 25 08:36:12 1999 UTC revision 355, Sat Jun 26 13:17:30 1999 UTC
# Line 170  Line 170 
170                          { corenv = corenv }                          { corenv = corenv }
171              val stableflag = if stabilize then SOME true else NONE              val stableflag = if stabilize then SOME true else NONE
172          in          in
173              case Parse.parse param stableflag maingspec of              case Parse.parse NONE param stableflag maingspec of
174                  NONE => false                  NONE => false
175                | SOME (g, gp) =>                | SOME (g, gp) =>
176                      if recomp gp g then let                      if recomp gp g then let

Legend:
Removed from v.354  
changed lines
  Added in v.355

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