X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2Fparse.icl;h=042ec474e2270fa34c0d127c2f9793e82b4f4fcb;hb=914011796825393e4f8711cdc8d44c17d65fd924;hp=56bc554a605794a58c39c5a7b363636dda1d30f8;hpb=c126dc3a1f66f959407cf3cf33bcba01142591c6;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