From 4549122f5e59e7ff3f60184a0c2f5316afa11705 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 7 Jul 2015 23:19:59 +0200
Subject: Fixes & readme

---
 iclean.icl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'iclean.icl')

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