diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/spec/compositor/generation/common.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/spec/compositor/generation/common.lux b/stdlib/source/spec/compositor/generation/common.lux index 9060675f6..60caf1a32 100644 --- a/stdlib/source/spec/compositor/generation/common.lux +++ b/stdlib/source/spec/compositor/generation/common.lux @@ -7,13 +7,13 @@ [pipe (#+ case>)] ["." try (#+ Try)]] [data - ["." bit ("#@." equivalence)] + ["." bit ("#\." equivalence)] [number ["." i64] ["n" nat] ["i" int] ["f" frac]] - ["." text ("#@." equivalence) + ["." text ("#\." equivalence) ["%" format (#+ format)]] [collection ["." list]]] @@ -90,7 +90,7 @@ (let [subject <subject-expr>])))] ["lux i64 f64" Frac i.frac f.= subject] - ["lux i64 char" Text (|>> (:coerce Nat) text.from-code) text@= (|> subject + ["lux i64 char" Text (|>> (:coerce Nat) text.from-code) text\= (|> subject (:coerce Nat) (n.% (i64.left-shift 8 1)) (:coerce Int))] @@ -111,8 +111,8 @@ ["lux i64 *" i.* Int i.=] ["lux i64 /" i./ Int i.=] ["lux i64 %" i.% Int i.=] - ["lux i64 =" i.= Bit bit@=] - ["lux i64 <" i.< Bit bit@=] + ["lux i64 =" i.= Bit bit\=] + ["lux i64 <" i.< Bit bit\=] )) )))) @@ -145,7 +145,7 @@ (synthesis.f64 subject))) (run (..sanitize <extension>)) (case> (#try.Success valueV) - (bit@= (<text> param subject) + (bit\= (<text> param subject) (:coerce Bit valueV)) _ @@ -179,7 +179,7 @@ sample-lower (r.ascii/lower-alpha sample-size) sample-upper (r.ascii/upper-alpha sample-size) sample-alpha (|> (r.ascii/alpha sample-size) - (r.filter (|>> (text@= sample-upper) not))) + (r.filter (|>> (text\= sample-upper) not))) char-idx (|> r.nat (:: ! map (n.% sample-size))) #let [sample-lowerS (synthesis.text sample-lower) sample-upperS (synthesis.text sample-upper) @@ -259,7 +259,7 @@ (run (..sanitize "lux text clip")) (case> (^multi (#try.Success valueV) [(:coerce (Maybe Text) valueV) (#.Some valueV)]) - (text@= expected valueV) + (text\= expected valueV) _ false))))] @@ -316,7 +316,7 @@ (run (..sanitize "lux try")) (case> (^multi (#try.Success valueV) [(:coerce (Try Text) valueV) (#try.Success valueV)]) - (text@= message valueV) + (text\= message valueV) _ false)))) |