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/translation/jvm/function.jvm.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux')

diff --git a/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux
index 6fb446bc4..f5799e572 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux
@@ -88,7 +88,7 @@
 (def: (with-captured env)
   (-> (List Variable) $.Def)
   (|> (list.enumerate env)
-      (list/map (function [[env-idx env-source]]
+      (list/map (function (_ [env-idx env-source])
                   ($d.field #$.Private $.finalF (referenceT.captured env-idx) $Object)))
       $d.fuse))
 
@@ -96,7 +96,7 @@
   (-> ls.Arity $.Def)
   (if (poly-arg? arity)
     (|> (list.n/range +0 (n/- +2 arity))
-        (list/map (function [idx]
+        (list/map (function (_ idx)
                     ($d.field #$.Private $.finalF (referenceT.partial idx) $Object)))
         $d.fuse)
     id))
@@ -124,7 +124,7 @@
                      captureI (|> (case env-size
                                     +0 (list)
                                     _ (list.n/range +0 (n/dec env-size)))
-                                  (list/map (function [source]
+                                  (list/map (function (_ source)
                                               (|>> ($i.ALOAD +0)
                                                    ($i.GETFIELD class (referenceT.captured source) $Object))))
                                   $i.fuse)
@@ -167,14 +167,14 @@
         store-capturedI (|> (case env-size
                               +0 (list)
                               _ (list.n/range +0 (n/dec env-size)))
-                            (list/map (function [register]
+                            (list/map (function (_ register)
                                         (|>> ($i.ALOAD +0)
                                              ($i.ALOAD (n/inc register))
                                              ($i.PUTFIELD class (referenceT.captured register) $Object))))
                             $i.fuse)
         store-partialI (if (poly-arg? arity)
                          (|> (list.n/range +0 (n/- +2 arity))
-                             (list/map (function [idx]
+                             (list/map (function (_ idx)
                                          (let [register (offset-partial idx)]
                                            (|>> ($i.ALOAD +0)
                                                 ($i.ALOAD (n/inc register))
@@ -197,7 +197,7 @@
         arity-over-extent (|> (nat-to-int function-arity) (i/- (nat-to-int apply-arity)))
         casesI (|> (list/compose @labels (list @default))
                    (list.zip2 (list.n/range +0 num-partials))
-                   (list/map (function [[stage @label]]
+                   (list/map (function (_ [stage @label])
                                (let [load-partialsI (if (n/> +0 stage)
                                                       (|> (list.n/range +0 (n/dec stage))
                                                           (list/map (|>> referenceT.partial (load-fieldI class)))
@@ -316,7 +316,7 @@
     [functionI (translate functionS)
      argsI (monad.map @ translate argsS)
      #let [applyI (|> (segment runtimeT.num-apply-variants argsI)
-                      (list/map (function [chunkI+]
+                      (list/map (function (_ chunkI+)
                                   (|>> ($i.CHECKCAST hostL.function-class)
                                        ($i.fuse chunkI+)
                                        ($i.INVOKEVIRTUAL hostL.function-class runtimeT.apply-method (runtimeT.apply-signature (list.size chunkI+)) false))))
-- 
cgit v1.2.3