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 737, Fri Nov 24 08:43:56 2000 UTC revision 759, Fri Dec 22 12:29:26 2000 UTC
# Line 240  Line 240 
240               * directly. *)               * directly. *)
241              fun dontLoadInitGroup () = let              fun dontLoadInitGroup () = let
242                  val g0 = recompInitGroup ()                  val g0 = recompInitGroup ()
243                  val stabarg = { group = g0, anyerrors = ref false }                  val stabarg = { group = g0, anyerrors = ref false,
244                                    rebindings = [] }
245              in              in
246                  if deliver then                  if deliver then
247                      case Stabilize.stabilize ginfo stabarg of                      case Stabilize.stabilize ginfo stabarg of

Legend:
Removed from v.737  
changed lines
  Added in v.759

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