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

Changed the list concatenation operator to be ++ in Rain

Browse Source
This commit is contained in:
Neil Brown 2008-05-18 10:30:17 +00:00
parent 46aa0383be
commit 6758cd7da3
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
frontends/LexRain.x
View File

@ -36,7 +36,7 @@ $hexDigit = [0-9 a-f A-F]
| "+" | "-" | "*" | "/" | "%"
| ">=" | "<="
| "<" | ">"
| ".."
| ".." | "++"
| "process" | "function"
| "pareach" | "seqeach" | "par" | "seq"
| "run" | "return" | "now"

2
frontends/ParseRain.hs
View File

@ -103,6 +103,7 @@ dyadicArithOp
<|> do {m <- reserved "*" ; return (m,A.Times) }
<|> do {m <- reserved "/" ; return (m,A.Div) }
<|> do {m <- reserved "%" ; return (m,A.Rem) }
<|> do {m <- reserved "++" ; return (m,A.Concat) }
dyadicCompOp :: RainParser (Meta,A.DyadicOp)
dyadicCompOp
@ -113,6 +114,7 @@ dyadicCompOp
<|> do {m <- reserved "==" ; return (m,A.Eq) }
<|> do {m <- reserved "<>" ; return (m,A.NotEq) }
-- TODO remove this in future, I think
monadicArithOp :: RainParser (Meta,A.MonadicOp)
monadicArithOp
= do {m <- reserved "-" ; return (m,A.MonadicMinus) }