aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/r/function.jvm.lux
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/r/function.jvm.lux')
-rw-r--r--new-luxc/source/luxc/lang/translation/r/function.jvm.lux4
1 files changed, 2 insertions, 2 deletions
diff --git a/new-luxc/source/luxc/lang/translation/r/function.jvm.lux b/new-luxc/source/luxc/lang/translation/r/function.jvm.lux
index 5ecf21c3c..f39a5e1a2 100644
--- a/new-luxc/source/luxc/lang/translation/r/function.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/r/function.jvm.lux
@@ -16,7 +16,7 @@
(def: #export (translate-apply translate functionS argsS+)
(-> (-> ls.Synthesis (Meta Expression)) ls.Synthesis (List ls.Synthesis) (Meta Expression))
- (do macro.Monad<Meta>
+ (do {@ macro.Monad<Meta>}
[functionO (translate functionS)
argsO+ (monad.map @ translate argsS+)]
(wrap (r.apply argsO+ functionO))))
@@ -50,7 +50,7 @@
(-> (-> ls.Synthesis (Meta Expression))
(List Variable) ls.Arity ls.Synthesis
(Meta Expression))
- (do macro.Monad<Meta>
+ (do {@ macro.Monad<Meta>}
[[function-name bodyO] (//.with-sub-context
(do @
[function-name //.context]