From b127b854d31e2936f86d4aabdcebe9cb298b23e9 Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Tue, 14 Mar 2006 19:45:23 +0000
Subject: [PATCH] minor stuff

---
 CompInt.hs   | 5 -----
 examples/sum | 2 +-
 2 files changed, 1 insertion(+), 6 deletions(-)

diff --git a/CompInt.hs b/CompInt.hs
index 298c9f4..3b28c00 100644
--- a/CompInt.hs
+++ b/CompInt.hs
@@ -22,11 +22,6 @@ type ParseFun a = [Token] -> Err a
 
 myLLexer = myLexer
 
-
-cHeader = "#include <stdio.h>\nint read(){\nint n;\nscanf(\"%d\",&n);\nreturn n;\n}\nint main(void){\n"
-
-cFooter = "return 0;}"
-
 putStrV :: Int -> String -> IO ()
 putStrV v s = if v > 1 then putStrLn s else return ()
 
diff --git a/examples/sum b/examples/sum
index d39cfe6..39428bc 100644
--- a/examples/sum
+++ b/examples/sum
@@ -4,6 +4,6 @@ Tests assignment as expression
 int n;
 int sum = 0;
 
-while ((n = readInt) != -1) sum = sum + n;
+while ((n = readInt) != 0) sum = sum + n;
 
 print sum;
-- 
2.39.2