From b0e2a7a87a40d36b3d1afea00ed01db7da93d544 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 8 Jul 2015 20:37:34 +0200
Subject: Cleanup, removed warnings, newline at end session

---
 iclean.icl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/iclean.icl b/iclean.icl
index e17cb86..f72d349 100644
--- a/iclean.icl
+++ b/iclean.icl
@@ -43,13 +43,13 @@ Start w
 where
     loop :: *World -> *World
     loop w
-    #! w = print "λ. " w
-    #! (s,w) = readline w
-    | s == "" = w
-    #! w = writemodule s w
-    #! (r,w) = compile temp_path temp_module w
+    # w = print "λ. " w
+    # (s,w) = readline w
+    | s == "" = print "\n" w
+    # w = writemodule s w
+    # (r,w) = compile temp_path temp_module w
     | r <> 0 = loop w
-    #! w = run (temp_path +++ temp_module) w
+    # w = run (temp_path +++ temp_module) w
     = loop w
 
 print :: String *World -> *World
@@ -82,7 +82,7 @@ writemodule s w
 | not ok = abort ("Couldn't close " +++ temp_file +++ "\n")
 | otherwise = w
 
-compile :: !String !String !*World -> !*(!Int,!*World)
+compile :: !String !String !*World -> *(!Int,*World)
 compile _ _ _ = code {
     ccall compile "SS:p:p"
 }
-- 
cgit v1.2.3