diff options
author | Eduardo Julian | 2018-07-21 23:57:21 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-07-21 23:57:21 -0400 |
commit | 9671d6064dd02dfe6c32492f5b9907b096e5bd89 (patch) | |
tree | db89e3908dedd606ce5838096bc5df9ebcc9b1c4 /stdlib/source/lux/math.lux | |
parent | 22d10692d87ac1c07fc14f6100917b913bb0f8b3 (diff) |
Re-named "seq" to "and" and "alt" to "or".
Diffstat (limited to 'stdlib/source/lux/math.lux')
-rw-r--r-- | stdlib/source/lux/math.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/math.lux b/stdlib/source/lux/math.lux index fea20ba9c..499a83e3e 100644 --- a/stdlib/source/lux/math.lux +++ b/stdlib/source/lux/math.lux @@ -191,7 +191,7 @@ (def: infix^ (Syntax Infix) (<| p.rec (function (_ infix^)) - ($_ p.alt + ($_ p.or ($_ p.either (parser/map code.bit s.bit) (parser/map code.nat s.nat) @@ -202,14 +202,14 @@ (parser/map code.identifier s.identifier) (parser/map code.tag s.tag)) (s.form (p.many s.any)) - (s.tuple (p.seq s.any infix^)) + (s.tuple (p.and s.any infix^)) (s.tuple ($_ p.either (do p.Monad<Parser> [_ (s.this (' #and)) init-subject infix^ init-op s.any init-param infix^ - steps (p.some (p.seq s.any infix^))] + steps (p.some (p.and s.any infix^))] (wrap (product.right (list/fold (function (_ [op param] [subject [_subject _op _param]]) [param [(#Binary _subject _op _param) (` and) @@ -220,7 +220,7 @@ [init-subject infix^ init-op s.any init-param infix^ - steps (p.some (p.seq s.any infix^))] + steps (p.some (p.and s.any infix^))] (wrap (list/fold (function (_ [op param] [_subject _op _param]) [(#Binary _subject _op _param) op param]) [init-subject init-op init-param] |