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

Parent Directory | Revision Log | Patch

	revision 758, Fri Dec 22 04:12:36 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

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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

---

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