--- sml/trunk/src/cm/link.sml	1999/06/17 08:21:08	335
+++ sml/trunk/src/cm/link.sml	1999/06/17 09:23:20	336
@@ -16,6 +16,11 @@
       structure S = GenericVC.Symbol
       structure CoerceEnv = GenericVC.CoerceEnv
 
+      val os = SMLofNJ.SysInfo.getOSKind ()
+
+      structure SSV = SpecificSymValFn (structure MachDepVC = HostMachDepVC
+					val os = os)
+
       (* For testing purposes, I need to have access to the old basis
        * library.  This is done via the "primitives" mechanism.  Eventually,
        * the basis will be accessed as a genuine library. The "primitives"
@@ -140,12 +145,13 @@
 	    val pcmode = PathConfig.hardwire
 		[("smlnj-lib.cm", "/home/blume/ML/current/lib")]
 	    val fnpolicy =
-		FilenamePolicy.colocate { os = SMLofNJ.SysInfo.getOSKind (),
+		FilenamePolicy.colocate { os = os,
 					  arch = HostMachDepVC.architecture }
 	    val keep_going = EnvConfig.getSet StdConfig.keep_going NONE
 	    val param = { primconf = primconf,
 			  fnpolicy = fnpolicy,
 			  pcmode = pcmode,
+			  symenv = SSV.env,
 			  keep_going = keep_going,
 			  pervasive = perv,
 			  corenv = corenv,
@@ -164,7 +170,7 @@
     structure CMB = struct
 	structure BootstrapCompile =
 	    BootstrapCompileFn (structure MachDepVC = HostMachDepVC
-				val os = SMLofNJ.SysInfo.getOSKind ())
+				val os = os)
 	fun make () = let
 	    val res = BootstrapCompile.compile
 		{ binroot = "xxx.bin.xxx",

<script type="text/javascript">//<![CDATA[
		function toggle_ffErrors() {
			var errorsblock = document.getElementById("ffErrorsBlock");
			var errorsgroup = document.getElementById("ffErrors");
			if (errorsblock.style.display == "none") {
				errorsblock.style.display = "block";
				errorsgroup.style.right = "10px";
			} else {
				errorsblock.style.display = "none";
				errorsgroup.style.right = "300px";
			}
		}
//]]></script>
<div id="ffErrors">
<a href="javascript:toggle_ffErrors();">Click to toggle</a>
<div id="ffErrorsBlock">
	<div class="error">does not end with &lt;/html&gt; tag</div>
	<div class="error">does not end with &lt;/body&gt; tag</div>
	<div class="info">The output has ended thus:  os = os)
 	fun make () = let
 	    val res = BootstrapCompile.compile
 		{ binroot = &quot;xxx.bin.xxx&quot;,</div>
</div></div>
</body></html>