diff options
author | Eduardo Julian | 2017-10-11 18:57:44 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-10-11 18:57:44 -0400 |
commit | 74a835634fc9ee5457f3cc7109af069dad9f2d2f (patch) | |
tree | dec444467ecde32ac165627f782f315ac41567e8 /new-luxc/source/luxc/parser.lux | |
parent | ccabfc6a5e41650788199cb8fd5d87731f094bcd (diff) |
- Migrated new-luxc to latest version of stdlib.
- Some refactoring.
Diffstat (limited to 'new-luxc/source/luxc/parser.lux')
-rw-r--r-- | new-luxc/source/luxc/parser.lux | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/new-luxc/source/luxc/parser.lux b/new-luxc/source/luxc/parser.lux index 2e8ad1fd5..7eb4dcb16 100644 --- a/new-luxc/source/luxc/parser.lux +++ b/new-luxc/source/luxc/parser.lux @@ -32,9 +32,10 @@ [text] ["R" result] [number] + [product] + [maybe] (text ["l" lexer] format) - [product] (coll [list "L/" Functor<List> Fold<List>] ["V" vector])))) @@ -252,7 +253,7 @@ (update@ #;column (n.+ chars-consumed))) char])))) _ (l;this "\"") - #let [char (assume (text;nth +0 char))]] + #let [char (maybe;assume (text;nth +0 char))]] (wrap [(|> where' (update@ #;column n.inc)) [where (#;Nat char)]]))) @@ -372,7 +373,7 @@ ## text's body. (recur (|> offset (text;split offset-column) - (default (undefined)) + (maybe;default (undefined)) product;right (format text-read)) (|> where |