--- trunk/src/compiler/cl-target/cl-target.sml	2012/06/03 07:01:19	1906
+++ trunk/src/compiler/cl-target/cl-target.sml	2012/06/03 08:17:19	1907
@@ -849,6 +849,7 @@
         fun init (Strand{name, tyName, code, init_code, ...}, params, init) = let
               val fName = RN.strandInit name
               val params =
+(* FIXME: the params should not have CL types, since this code is generated to the C file! *)
                     clParam ("",CL.T_Ptr(CL.T_Named tyName), "selfOut") ::
                       List.map (fn (ToCL.V(ty, x)) => CL.PARAM([], ty, x)) params
               val initFn = CL.D_Func([], CL.voidTy, fName, params, init)

<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: L.PARAM([], ty, x)) params
               val initFn = CL.D_Func([], CL.voidTy, fName, params, init)</div>
</div></div>
</body></html>