suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed SKIP not being allowed as a guard without a precondition

Browse Source
This commit is contained in:
Neil Brown 2009-04-14 11:13:00 +00:00
parent 71267f12d5
commit 1a3df54ee7
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
frontends/ParseOccam.hs
View File

@ -1907,6 +1907,10 @@ guard
= do m <- md = do m <- md
(c, im) <- input (c, im) <- input
return $ A.Alternative m (A.True m) c im return $ A.Alternative m (A.True m) c im
<|> do m <- md
sSKIP
eol
return $ A.AlternativeSkip m (A.True m)
<|> do m <- md <|> do m <- md
b <- tryVX expression sAmp b <- tryVX expression sAmp
do { (c, im) <- input; return $ A.Alternative m b c im } do { (c, im) <- input; return $ A.Alternative m b c im }