diff options
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/test/test/luxc/parser.lux | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/new-luxc/test/test/luxc/parser.lux b/new-luxc/test/test/luxc/parser.lux index c90812cc8..7a0b2c278 100644 --- a/new-luxc/test/test/luxc/parser.lux +++ b/new-luxc/test/test/luxc/parser.lux @@ -1,7 +1,7 @@ (;module: lux (lux [io] - (control monad) + (control [monad #+ do]) (data [text "T/" Eq<Text>] (text format ["l" lexer]) @@ -45,7 +45,7 @@ (|> r;nat (r/map (|>. #;Nat [default-cursor]))) (|> r;int (r/map (|>. #;Int [default-cursor]))) (|> r;deg (r/map (|>. #;Deg [default-cursor]))) - (|> r;real (r/map (|>. #;Real [default-cursor]))))) + (|> r;frac (r/map (|>. #;Frac [default-cursor]))))) textual^ (: (r;Random Code) ($_ r;either (do r;Monad<Random> @@ -107,6 +107,7 @@ (wrap (format "#( " comment " )#"))))))) (context: "Multi-line text & comments." + #seed +709318929887591337 [#let [char-gen (|> r;nat (r;filter (function [value] (not (or (text;space? value) (n.= (char "\"") value))))))] |