Minor improvement

1 files changed, 1 insertions, 2 deletions

diff --git a/iclean.icl b/iclean.icl
index 48dcf35..d7d73d8 100644
--- a/iclean.icl
+++ b/iclean.icl
@@ -168,7 +168,6 @@ writemodule stat s w
 # f = f <<< "module " <<< temp_module <<< "\n"
 # f = f <<< join "\n" stat.memory
 # f = f <<< "start = " <<< s <<< "\n"
-		<<< "rslt = genShow{|*|} \"\" True start []\n"
 		<<< "Start = " <<< start
 # (ok,w) = fclose f w
 | not ok = abort ("Couldn't close " +++ temp_file +++ "\n")
@@ -181,7 +180,7 @@ where
 		(False, False) = "()"
 	where
 		type = "toString (typeCodeOfDynamic (dynamic start))"
-		rslt = "foldl (+++) \"\" rslt"
+		rslt = "foldl (+++) \"\" (genShow{|*|} \"\" True start [])"
 
 // C functions
 compile :: !String !String !*World -> *(!Int,!*World)