diff options
Diffstat (limited to 'stdlib/source/spec/compositor/generation/structure.lux')
| -rw-r--r-- | stdlib/source/spec/compositor/generation/structure.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/spec/compositor/generation/structure.lux b/stdlib/source/spec/compositor/generation/structure.lux index cd790c6d2..e728867eb 100644 --- a/stdlib/source/spec/compositor/generation/structure.lux +++ b/stdlib/source/spec/compositor/generation/structure.lux @@ -11,11 +11,11 @@ [number ["n" nat] ["i" int]] - ["." text ("#@." equivalence) + ["." text ("#\." equivalence) ["%" format (#+ format)]] [collection ["." array (#+ Array)] - ["." list ("#@." functor)]]] + ["." list ("#\." functor)]]] [math ["r" random]] ["." host (#+ import:)] @@ -51,7 +51,7 @@ same-tag? (|> tag-out host.int-to-long (:coerce Nat) (n.= tag-in)) same-flag? (case last?-out (#.Some last?-out') - (and last?-in (text@= "" (:coerce Text last?-out'))) + (and last?-in (text\= "" (:coerce Text last?-out'))) #.None (not last?-in)) @@ -69,7 +69,7 @@ [size (|> r.nat (:: ! map (|>> (n.% 10) (n.max 2)))) tuple-in (r.list size r.i64)] (_.test (%.name (name-of synthesis.tuple)) - (|> (synthesis.tuple (list@map (|>> synthesis.i64) tuple-in)) + (|> (synthesis.tuple (list\map (|>> synthesis.i64) tuple-in)) (run "tuple") (case> (#try.Success tuple-out) (let [tuple-out (:coerce (Array Any) tuple-out)] |