aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/synthesis/expression.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/synthesis/expression.lux6
1 files changed, 3 insertions, 3 deletions
diff --git a/new-luxc/source/luxc/lang/synthesis/expression.lux b/new-luxc/source/luxc/lang/synthesis/expression.lux
index b17af14d2..c05f1daf9 100644
--- a/new-luxc/source/luxc/lang/synthesis/expression.lux
+++ b/new-luxc/source/luxc/lang/synthesis/expression.lux
@@ -149,7 +149,7 @@
(let [function-arity (if direct?
(n/inc arity)
+1)
- env (list/map (function [closure]
+ env (list/map (function (_ closure)
(case (dict.get closure resolver)
(#.Some resolved)
(if (and (variableL.local? resolved)
@@ -170,11 +170,11 @@
_ (|> (list.size raw-env) n/dec (list.n/range +0) (list/map variableL.captured))))
resolver' (if (and (functionS.nested? function-arity)
direct?)
- (list/fold (function [[from to] resolver']
+ (list/fold (function (_ [from to] resolver')
(dict.put from to resolver'))
init-resolver
(list.zip2 env-vars env))
- (list/fold (function [var resolver']
+ (list/fold (function (_ var resolver')
(dict.put var var resolver'))
init-resolver
env-vars))]