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

Parent Directory | Revision Log | Patch

	revision 334, Thu Jun 17 02:43:15 1999 UTC	revision 335, Thu Jun 17 08:21:08 1999 UTC
#	Line 106	Line 106
106	errcons = errcons }	errcons = errcons }
107
108	fun main_compile arg = let	fun main_compile arg = let
109	val { rts, core, pervasive, primitives, filepaths } = arg	val { rts, core, pervasive, primitives, binpaths } = arg
110
111	val ovldR = GenericVC.Control.overloadKW	val ovldR = GenericVC.Control.overloadKW
112	val savedOvld = !ovldR	val savedOvld = !ovldR
#	Line 171	Line 171
171	if recomp gp g then	if recomp gp g then
172	SOME { rtspid = PS.toHex (#2 (#stat rts)),	SOME { rtspid = PS.toHex (#2 (#stat rts)),
173	bootfiles =	bootfiles =
174	map (fn x => (x, NONE)) filepaths @	map (fn x => (x, NONE)) binpaths @
175	MkBootList.group g }	MkBootList.group g }
176	else NONE	else NONE
177	end handle Option => (RT.clearFailures (); NONE)	end handle Option => (RT.clearFailures (); NONE)

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.334   changed lines   Added in v.335

---

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