CheckIf statements

[cc1516.git] / spl.icl

diff --git a/spl.icl b/spl.icl
index 5dad10e..291b0bd 100644 (file)
--- a/spl.icl
+++ b/spl.icl
@@ -72,7 +72,7 @@ Start w
                                (Right (semOut, gamma))
                                # stdin = if (not args.sem) stdin (
                                        stdin <<<  "//SEM\n" <<< toString gamma <<< "//SEM\n")
-                               = snd $ fclose stdin w
+                               = snd $ fclose (stdin <<< "\n") w
                where
                        printTokens :: [Token] -> String
                        printTokens ts = concat $ flatten $ map pt ts