aboutsummaryrefslogtreecommitdiff
path: root/new-luxc
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/parser.lux7
-rw-r--r--new-luxc/test/test/luxc/parser.lux2
2 files changed, 6 insertions, 3 deletions
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))))))]