--- sml/trunk/src/cm/depend/mklist.sml	1999/06/28 08:46:30	357
+++ sml/trunk/src/cm/depend/mklist.sml	1999/06/28 13:59:11	358
@@ -26,29 +26,29 @@
     fun bnode (DG.PNODE _) k m = k m
       | bnode (DG.BNODE n) k m = let
 	    val { bininfo = i, localimports = l, globalimports = g } = n
+	    fun k' m = bininfo i :: k (stab_reg (m, i))
 	in
 	    if stab_isreg (m, i) then k m
-	    else bininfo i
-		:: do_list bnode l (do_list farbnode g k) (stab_reg (m, i))
+	    else do_list bnode l (do_list farbnode g k') m
 	end
 
-    and farbnode (_, n) k m = bnode n k m
+    and farbnode (_, n) = bnode n
 
     fun snode (DG.SNODE n) k m = let
 	val { smlinfo = i, localimports = l, globalimports = g } = n
+	fun k' m = smlinfo i :: k (sml_reg (m, i))
     in
 	if sml_isreg (m, i) then k m
-	else smlinfo i
-	    :: do_list snode l (do_list farsbnode g k) (sml_reg (m, i))
+	else do_list snode l (do_list farsbnode g k') m
     end
 
-    and farsbnode (_, DG.SB_BNODE n) k m = bnode n k m
-      | farsbnode (_, DG.SB_SNODE n) k m = snode n k m
+    and farsbnode (_, DG.SB_BNODE n) = bnode n
+      | farsbnode (_, DG.SB_SNODE n) = snode n
 
-    fun impexp (n, _) k m = farsbnode n k m
+    fun impexp (n, _) = farsbnode n
 
     fun group (GroupGraph.GROUP { exports, ... }) =
 	do_list impexp (SymbolMap.listItems exports)
-	               (fn m => []) 
+	               (fn _ => [])
 		       (StableSet.empty, SmlInfoSet.empty)
 end

<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:       (fn m =&gt; []) 
+	               (fn _ =&gt; [])
 		       (StableSet.empty, SmlInfoSet.empty)
 end</div>
</div></div>
</body></html>