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

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/loop.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/loop.jvm.lux
index 2e585fb11..fab4a7efe 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/loop.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/loop.jvm.lux
@@ -45,13 +45,13 @@
      ## and stores separately, then by the time Y is evaluated, it
      ## will refer to the new value of X, instead of the old value, as
      ## must be the case.
-     valuesI+ (monad.map @ (function [[register argS]]
+     valuesI+ (monad.map @ (function (_ [register argS])
                              (: (Meta $.Inst)
                                 (if (constant? register argS)
                                   (wrap id)
                                   (translate argS))))
                          pairs)
-     #let [storesI+ (list/map (function [[register argS]]
+     #let [storesI+ (list/map (function (_ [register argS])
                                 (: $.Inst
                                    (if (constant? register argS)
                                      id
@@ -71,7 +71,7 @@
      bodyI (hostL.with-anchor [@begin offset]
              (translate bodyS))
      #let [initializationI (|> (list.enumerate initsI+)
-                               (list/map (function [[register initI]]
+                               (list/map (function (_ [register initI])
                                            (|>> initI
                                                 ($i.ASTORE (n/+ offset register)))))
                                $i.fuse)]]
-- 
cgit v1.2.3