change empty tuple to (,) and add back parsing

This commit is contained in:
darkf 2013-10-29 03:05:19 -07:00
parent d653902028
commit f1af997708
1 changed files with 4 additions and 4 deletions

View File

@ -80,6 +80,7 @@ tupleSeq p cons = do
emptyTuple cons = do emptyTuple cons = do
symbol "(" symbol "("
symbol ","
symbol ")" symbol ")"
return $ cons [] return $ cons []
@ -171,11 +172,10 @@ accessOp = do
expr1 = try block expr1 = try block
<|> try lambda <|> try lambda
-- <|> try funDef
<|> try def <|> try def
-- <|> try (emptyTuple TupleConst) <|> try (emptyTuple TupleConst)
-- <|> try (tupleSeq exprparser TupleConst) <|> try (tupleSeq exprparser TupleConst)
-- <|> parens exprparser <|> parens exprparser
<|> listSeq exprparser ListConst <|> listSeq exprparser ListConst
<|> try ifExpr <|> try ifExpr
<|> try bool <|> try bool