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