Diff of /sml/trunk/src/cm/main/cm-boot.sml

Parent Directory | Revision Log | Patch

	revision 460, Wed Nov 3 02:23:44 1999 UTC	revision 461, Thu Nov 4 08:06:56 1999 UTC
#	Line 413	Line 413
413	val d = case Link.sysval (SOME statpid) of	val d = case Link.sysval (SOME statpid) of
414	SOME d => d	SOME d => d
415	| NONE => emptydyn	| NONE => emptydyn
416	val env = E.mkenv { static = statenv (),	val { env = static, ctxt } = statenv ()
417		val env = E.mkenv { static = static,
418	symbolic = symenv (),	symbolic = symenv (),
419	dynamic = d }	dynamic = d }
420	val pidInfo = { statpid = statpid, sympid = sympid }	val pidInfo =
421		{ statpid = statpid, sympid = sympid,
422		ctxt = ctxt }
423	in	in
424	(env, pidInfo)	(env, pidInfo)
425	end	end

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.460   changed lines   Added in v.461

---

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