uplime/lamb
uplime
/
lamb
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add call arguments

This commit is contained in:
darkf 2013-10-19 01:44:53 -07:00
parent 0db6e26070
commit 7aa23e4800
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
parser.hs
View File

@ -60,8 +60,10 @@ call = do
name <- identifier name <- identifier
whiteSpace whiteSpace
symbol "(" symbol "("
args <- sepBy exprparser (symbol ",")
let args' = if args == [] then [UnitConst] else args -- at least Unit
symbol ")" symbol ")"
return $ Call name [UnitConst] return $ Call name args'
term = try block term = try block
<|> try funDef <|> try funDef
@ -75,7 +77,7 @@ seqStmt = sepBy1 statement semi
program = program =
many1 $ do many1 $ do
e <- exprparser e <- exprparser
reserved "." symbol "."
return e return e
parseProgram = parse program "program" parseProgram = parse program "program"