Cleanup, removed warnings, newline at end session

1 files 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"
 }