diff options
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 |