From ca238f9c89d3156842b0a3d5fe24a5d69b2eedb0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 6 Apr 2018 08:32:41 -0400
Subject: - Adapted new-luxc's code to latest stdlib changes.

---
 new-luxc/source/luxc/lang/synthesis/expression.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'new-luxc/source/luxc/lang/synthesis/expression.lux')

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))]
-- 
cgit v1.2.3