diff options
author | Eduardo Julian | 2021-08-07 02:20:09 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-08-07 02:20:09 -0400 |
commit | 17e7566be51df5e428a6b10e6469201a8a9468da (patch) | |
tree | 0d4ed80c9c9d846784b5bf460f6e6f5fc5b96663 /stdlib/source/specification/compositor/generation/case.lux | |
parent | eff4c59794868b89d60fdc411f9b544a270b817e (diff) |
Made the be/de macros for (co)monadic expression extensible.
Diffstat (limited to 'stdlib/source/specification/compositor/generation/case.lux')
-rw-r--r-- | stdlib/source/specification/compositor/generation/case.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/specification/compositor/generation/case.lux b/stdlib/source/specification/compositor/generation/case.lux index 117aab697..0ef6fc025 100644 --- a/stdlib/source/specification/compositor/generation/case.lux +++ b/stdlib/source/specification/compositor/generation/case.lux @@ -68,7 +68,7 @@ [size ..size idx (|> r.nat (\ ! map (n.% size))) [subS subP] case - #let [unitS (synthesis.text synthesis.unit) + .let [unitS (synthesis.text synthesis.unit) caseS (synthesis.tuple (list.concat (list (list.repeat idx unitS) (list subS) @@ -83,7 +83,7 @@ [size ..size idx (|> r.nat (\ ! map (n.% size))) [subS subP] case - #let [right? (tail? size idx) + .let [right? (tail? size idx) caseS (synthesis.variant {#analysis.lefts idx #analysis.right? right? |