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/data/text/lexer.lux | |
| parent | 22d10692d87ac1c07fc14f6100917b913bb0f8b3 (diff) | |
Re-named "seq" to "and" and "alt" to "or".
Diffstat (limited to 'stdlib/source/lux/data/text/lexer.lux')
| -rw-r--r-- | stdlib/source/lux/data/text/lexer.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/data/text/lexer.lux b/stdlib/source/lux/data/text/lexer.lux index bd7a0ff98..6e16ee6ec 100644 --- a/stdlib/source/lux/data/text/lexer.lux +++ b/stdlib/source/lux/data/text/lexer.lux @@ -1,5 +1,5 @@ (.module: - [lux (#- not) + [lux (#- or and not) [control [monad (#+ do Monad)] ["p" parser]] @@ -128,8 +128,8 @@ [char any #let [char' (maybe.assume (text.nth +0 char))] _ (p.assert ($_ text/compose "Character is not within range: " (text.from-code bottom) "-" (text.from-code top)) - (and (n/>= bottom char') - (n/<= top char')))] + (.and (n/>= bottom char') + (n/<= top char')))] (wrap char))) (do-template [<name> <bottom> <top> <desc>] @@ -208,7 +208,7 @@ (Lexer Text) (satisfies text.space?)) -(def: #export (seq left right) +(def: #export (and left right) (-> (Lexer Text) (Lexer Text) (Lexer Text)) (do p.Monad<Parser> [=left left |