diff options
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/luxc/parser.lux | 7 | ||||
| -rw-r--r-- | new-luxc/test/test/luxc/parser.lux | 2 |
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))))))] |