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

Parent Directory | Revision Log | Patch

	revision 365, Fri Jul 2 08:38:07 1999 UTC	revision 366, Fri Jul 2 14:13:29 1999 UTC
#	Line 301	Line 301
301	(HostMachDepVC.Interact.installCompManager	(HostMachDepVC.Interact.installCompManager
302	(SOME al_manager');	(SOME al_manager');
303	autoload "basis.cm";	autoload "basis.cm";
304	AutoLoadHook.autoloadHook := autoload)	autoload "host-cm.cm";
305		CmHook.init
306		{ stabilize = stabilize,
307		recomp = recomp,
308		make = make,
309		autoload = autoload,
310		reset = reset,
311		verbose =
312		EnvConfig.getSet StdConfig.verbose,
313		debug =
314		EnvConfig.getSet StdConfig.debug,
315		keep_going =
316		EnvConfig.getSet StdConfig.keep_going,
317		parse_caching =
318		EnvConfig.getSet StdConfig.parse_caching,
319		setAnchor = setAnchor })
320
321	end	end
322	end	end
323	end	end
324	in	in
	structure CM = struct
	val stabilize = stabilize
	val recomp = recomp
	val make = make
	val autoload = autoload
	val reset = reset
	val verbose = EnvConfig.getSet StdConfig.verbose
	val debug = EnvConfig.getSet StdConfig.debug
	val keep_going = EnvConfig.getSet StdConfig.keep_going
	val parse_caching = EnvConfig.getSet StdConfig.parse_caching
	val setAnchor = setAnchor
	end
325	fun init (bootdir, de, er) =	fun init (bootdir, de, er) =
326	(system_values := de;	(system_values := de;
327	initTheValues (bootdir, er);	initTheValues (bootdir, er);

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.365   changed lines   Added in v.366

---

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