diff options
-rw-r--r-- | iclean.icl | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -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" } |