From 17e7566be51df5e428a6b10e6469201a8a9468da Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sat, 7 Aug 2021 02:20:09 -0400 Subject: Made the be/de macros for (co)monadic expression extensible. --- stdlib/source/specification/compositor/generation/case.lux | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'stdlib/source/specification/compositor/generation/case.lux') 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? -- cgit v1.2.3