From 7aa23e4800d4464a8ea01411a9ae14c60378c212 Mon Sep 17 00:00:00 2001
From: darkf <lw9k123@gmail.com>
Date: Sat, 19 Oct 2013 01:44:53 -0700
Subject: [PATCH] add call arguments

---
 parser.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/parser.hs b/parser.hs
index 184be51..002573d 100644
--- a/parser.hs
+++ b/parser.hs
@@ -60,8 +60,10 @@ call = do
 	name <- identifier
 	whiteSpace
 	symbol "("
+	args <- sepBy exprparser (symbol ",")
+	let args' = if args == [] then [UnitConst] else args -- at least Unit
 	symbol ")"
-	return $ Call name [UnitConst]
+	return $ Call name args'
 
 term = try block
 	 <|> try funDef
@@ -75,7 +77,7 @@ seqStmt = sepBy1 statement semi
 program =
 	many1 $ do
 		e <- exprparser
-		reserved "."
+		symbol "."
 		return e
 
 parseProgram = parse program "program"
\ No newline at end of file