diff options
| author | Eduardo Julian | 2017-11-14 14:59:45 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-11-14 14:59:45 -0400 |
| commit | 686a46f569b818681583e6ce75b37b25642b375b (patch) | |
| tree | ee3c9d368ad6c89ce1475c34a2dc87e860f33279 /stdlib/source/lux/data/text/lexer.lux | |
| parent | 72603f38074a67f9ab1e53df1b5fb5da3836162d (diff) | |
- Removed "lux text last-index" procedure.
- Removed "lux text trim" procedure.
- Modified "lux text clip" procedure.
- Some bug fixes.
Diffstat (limited to '')
| -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 45effa773..9ae2bdd8f 100644 --- a/stdlib/source/lux/data/text/lexer.lux +++ b/stdlib/source/lux/data/text/lexer.lux @@ -65,7 +65,7 @@ {#;doc "Lex a text if it matches the given sample."} (-> Text (Lexer Unit)) (function [[offset tape]] - (case (text;index-of reference offset tape) + (case (text;index-of' reference offset tape) (#;Some where) (if (n.= offset where) (#E;Success [[(n.+ (text;size reference) offset) tape] []]) @@ -78,7 +78,7 @@ {#;doc "Lex a text if it matches the given sample."} (-> Text (Lexer Bool)) (function [(^@ input [offset tape])] - (case (text;index-of reference offset tape) + (case (text;index-of' reference offset tape) (^multi (#;Some where) (n.= offset where)) (#E;Success [[(n.+ (text;size reference) offset) tape] true]) |