X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2Fparse.icl;h=042ec474e2270fa34c0d127c2f9793e82b4f4fcb;hb=6c1945d3b85c0bf8ff2d56b4a6fb456d07a7282a;hp=56bc554a605794a58c39c5a7b363636dda1d30f8;hpb=f56458569930a95ddb04c0d166af574535b493d4;p=cc1516.git

diff --git a/src/parse.icl b/src/parse.icl
index 56bc554..042ec47 100644
--- a/src/parse.icl
+++ b/src/parse.icl
@@ -25,7 +25,7 @@ parser (Right r) = case runParser parseProgram r of
 
 parseProgram :: Parser Token AST
 parseProgram = liftM2 AST (many parseVarDecl) (some parseFunDecl) 
-	<* satTok EndOfFileToken
+//	<* satTok EndOfFileToken
 
 parseFunDecl :: Parser Token FunDecl
 parseFunDecl = liftM5 FunDecl