diff options
author | Eduardo Julian | 2018-07-28 15:39:06 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-07-28 15:39:06 -0400 |
commit | e6db62dbd6529938dace0e1cf5743f4e985efb81 (patch) | |
tree | 1117a8e1d45a109e0d982a3927ebff38e0aca17b /stdlib/source/lux/data/text/lexer.lux | |
parent | 15e71e57b688f5079fe606b2fee5e3efd2a5d5a7 (diff) |
Removed temporary "|" prefix on Nat.
Diffstat (limited to 'stdlib/source/lux/data/text/lexer.lux')
-rw-r--r-- | stdlib/source/lux/data/text/lexer.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/lux/data/text/lexer.lux b/stdlib/source/lux/data/text/lexer.lux index 14afb4254..481d17b0a 100644 --- a/stdlib/source/lux/data/text/lexer.lux +++ b/stdlib/source/lux/data/text/lexer.lux @@ -15,7 +15,7 @@ (type: Offset Nat) -(def: start-offset Offset |0) +(def: start-offset Offset 0) (type: #export Lexer (p.Parser [Offset Text])) @@ -126,7 +126,7 @@ (-> Nat Nat (Lexer Text)) (do p.Monad<Parser> [char any - #let [char' (maybe.assume (text.nth |0 char))] + #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')))] |