From 74a835634fc9ee5457f3cc7109af069dad9f2d2f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 11 Oct 2017 18:57:44 -0400
Subject: - Migrated new-luxc to latest version of stdlib. - Some refactoring.

---
 new-luxc/source/luxc/parser.lux | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'new-luxc/source/luxc/parser.lux')

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
-- 
cgit v1.2.3