aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/meta/compiler/language/lux/phase/synthesis/function.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/meta/compiler/language/lux/phase/synthesis/function.lux')
-rw-r--r--stdlib/source/library/lux/meta/compiler/language/lux/phase/synthesis/function.lux4
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/library/lux/meta/compiler/language/lux/phase/synthesis/function.lux b/stdlib/source/library/lux/meta/compiler/language/lux/phase/synthesis/function.lux
index 0c9b3b3ab..a7b3d400d 100644
--- a/stdlib/source/library/lux/meta/compiler/language/lux/phase/synthesis/function.lux
+++ b/stdlib/source/library/lux/meta/compiler/language/lux/phase/synthesis/function.lux
@@ -182,11 +182,11 @@
that (grow environment that)]
(in (/.branch/exec @ [this that])))
- {/.#Let [inputS register bodyS]}
+ {/.#Let [[register inputS] bodyS]}
(do phase.monad
[inputS' (grow environment inputS)
bodyS' (grow environment bodyS)]
- (in (/.branch/let @ [inputS' (++ register) bodyS'])))
+ (in (/.branch/let @ [[(++ register) inputS'] bodyS'])))
{/.#If [testS thenS elseS]}
(do phase.monad