From d28c16939e02dbd7e3a2d987bc88135285938f2f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 2 Jul 2017 15:57:18 -0400
Subject: - Real syntax now supports exponential.

---
 new-luxc/source/luxc/parser.lux    | 7 ++++++-
 new-luxc/test/test/luxc/parser.lux | 2 --
 2 files changed, 6 insertions(+), 3 deletions(-)

(limited to 'new-luxc')

diff --git a/new-luxc/source/luxc/parser.lux b/new-luxc/source/luxc/parser.lux
index 7d9c77f2b..9778eb465 100644
--- a/new-luxc/source/luxc/parser.lux
+++ b/new-luxc/source/luxc/parser.lux
@@ -237,7 +237,12 @@
        (p;default "" (l;one-of "-"))
        rich-digits^
        (l;one-of ".")
-       rich-digits^)
+       rich-digits^
+       (p;default ""
+         ($_ l;seq
+             (l;one-of "eE")
+             (p;default "" (l;one-of "+-"))
+             (l;many l;decimal))))
    number;Codec<Text,Real>]
   
   [parse-deg #;Deg
diff --git a/new-luxc/test/test/luxc/parser.lux b/new-luxc/test/test/luxc/parser.lux
index b7eaa0ea5..c90812cc8 100644
--- a/new-luxc/test/test/luxc/parser.lux
+++ b/new-luxc/test/test/luxc/parser.lux
@@ -74,7 +74,6 @@
                    composite^))))))
 
 (context: "Lux code parser."
-  #seed +15765541630132670628
   [sample code^]
   (test "Can parse Lux code."
         (case (&;parse [default-cursor (code;to-text sample)])
@@ -108,7 +107,6 @@
                        (wrap (format "#( " comment " )#")))))))
 
 (context: "Multi-line text & comments."
-  #seed +13835085537605735783
   [#let [char-gen (|> r;nat (r;filter (function [value]
                                         (not (or (text;space? value)
                                                  (n.= (char "\"") value))))))]
-- 
cgit v1.2.3