Fixed a conflict between the old time-related patches and the new alt patches
This commit is contained in:
parent
769dc3c79a
commit
db4f05932b
|
@ -367,7 +367,9 @@ statement
|
|||
<|> block
|
||||
<|> each
|
||||
<|> runProcess
|
||||
<|> try comm
|
||||
<|> do {m <- reserved "now" ; dest <- lvalue ; sSemiColon ; return $ A.GetTime m dest}
|
||||
<|> try (comm False)
|
||||
<|> alt
|
||||
<|> try (do { lv <- lvalue ; op <- assignOp ; exp <- expression ; sSemiColon ;
|
||||
case op of
|
||||
(m', Just dyOp) -> return (A.Assign m' [lv] (A.ExpressionList m' [(A.Dyadic m' dyOp (A.ExprVariable (findMeta lv) lv) exp)]))
|
||||
|
|
|
@ -628,6 +628,8 @@ tests = TestList
|
|||
parseTests testAssign,
|
||||
parseTests testDataType,
|
||||
parseTests testComm,
|
||||
parseTests testAlt,
|
||||
parseTests testTime,
|
||||
parseTests testRun,
|
||||
parseTests testDecl,
|
||||
parseTests testTopLevelDecl
|
||||
|
|
Loading…
Reference in New Issue
Block a user