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/loop.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/synthesis/loop.lux b/new-luxc/source/luxc/lang/synthesis/loop.lux
index 762032a59..c00d5626b 100644
--- a/new-luxc/source/luxc/lang/synthesis/loop.lux
+++ b/new-luxc/source/luxc/lang/synthesis/loop.lux
@@ -37,7 +37,7 @@
             false)))
 
     (^ [_ (#.Form (list [_ (#.Text "lux function")] arity [_ (#.Tuple environment)] bodyS))])
-    (list.any? (function [captured]
+    (list.any? (function (_ captured)
                  (case captured
                    (^ [_ (#.Form (list [_ (#.Int var)]))])
                    (variableL.self? var)
@@ -111,7 +111,7 @@
 (def: #export (adjust env offset exprS)
   (-> (List Variable) Register ls.Synthesis ls.Synthesis)
   (let [resolve-captured (: (-> Variable Variable)
-                            (function [var]
+                            (function (_ var)
                               (let [idx (|> var (i/* -1) int-to-nat n/dec)]
                                 (|> env (list.nth idx) maybe.assume))))]
     (loop [exprS exprS]
@@ -144,7 +144,7 @@
 
         (^code ("lux function" (~ arity) [(~+ environment)] (~ bodyS)))
         (` ("lux function" (~ arity)
-            [(~+ (list/map (function [_var]
+            [(~+ (list/map (function (_ _var)
                              (case _var
                                (^ [_ (#.Form (list [_ (#.Int var)]))])
                                (` ((~ (code.int (resolve-captured var)))))
-- 
cgit v1.2.3