aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/test
diff options
context:
space:
mode:
authorEduardo Julian2017-05-03 23:51:16 -0400
committerEduardo Julian2017-05-03 23:51:16 -0400
commitc700bb87641d37b2db9f31cd8db157fce170f866 (patch)
tree5be5950a095451f0c08707deb3628ea6edfd5df5 /new-luxc/test
parent9849d179f644927be036ee66f32e219623a59021 (diff)
- Removed the "S" suffix from AST tags.
Diffstat (limited to 'new-luxc/test')
-rw-r--r--new-luxc/test/test/luxc/parser.lux24
1 files changed, 12 insertions, 12 deletions
diff --git a/new-luxc/test/test/luxc/parser.lux b/new-luxc/test/test/luxc/parser.lux
index 9259c1101..9f8584b2c 100644
--- a/new-luxc/test/test/luxc/parser.lux
+++ b/new-luxc/test/test/luxc/parser.lux
@@ -42,19 +42,19 @@
(R;Random AST)
(let [numeric^ (: (R;Random AST)
($_ R;either
- (|> R;bool (R/map (|>. #;BoolS [default-cursor])))
- (|> R;nat (R/map (|>. #;NatS [default-cursor])))
- (|> R;int (R/map (|>. #;IntS [default-cursor])))
- (|> R;deg (R/map (|>. #;DegS [default-cursor])))
- (|> R;real (R/map (|>. #;RealS [default-cursor])))))
+ (|> R;bool (R/map (|>. #;Bool [default-cursor])))
+ (|> 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])))))
textual^ (: (R;Random AST)
($_ R;either
- (|> R;char (R/map (|>. #;CharS [default-cursor])))
+ (|> R;char (R/map (|>. #;Char [default-cursor])))
(do R;Monad<Random>
[size (|> R;nat (R/map (n.% +20)))]
- (|> (R;text size) (R/map (|>. #;TextS [default-cursor]))))
- (|> ident^ (R/map (|>. #;SymbolS [default-cursor])))
- (|> ident^ (R/map (|>. #;TagS [default-cursor])))))
+ (|> (R;text size) (R/map (|>. #;Text [default-cursor]))))
+ (|> ident^ (R/map (|>. #;Symbol [default-cursor])))
+ (|> ident^ (R/map (|>. #;Tag [default-cursor])))))
simple^ (: (R;Random AST)
($_ R;either
numeric^
@@ -66,12 +66,12 @@
(R;list size ast^))
composite^ (: (R;Random AST)
($_ R;either
- (|> multi^ (R/map (|>. #;FormS [default-cursor])))
- (|> multi^ (R/map (|>. #;TupleS [default-cursor])))
+ (|> multi^ (R/map (|>. #;Form [default-cursor])))
+ (|> multi^ (R/map (|>. #;Tuple [default-cursor])))
(do R;Monad<Random>
[size (|> R;nat (R/map (n.% +3)))]
(|> (R;list size (R;seq ast^ ast^))
- (R/map (|>. #;RecordS [default-cursor]))))))]
+ (R/map (|>. #;Record [default-cursor]))))))]
(R;either simple^
composite^))))))