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/host/jvm/def.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'new-luxc/source/luxc/lang/host/jvm/def.lux')

diff --git a/new-luxc/source/luxc/lang/host/jvm/def.lux b/new-luxc/source/luxc/lang/host/jvm/def.lux
index 8c73c1086..4cb7aba3e 100644
--- a/new-luxc/source/luxc/lang/host/jvm/def.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/def.lux
@@ -63,7 +63,7 @@
 (def: (string-array values)
   (-> (List Text) (Array Text))
   (let [output (host.array String (list.size values))]
-    (exec (list/map (function [[idx value]]
+    (exec (list/map (function (_ [idx value])
                       (host.array-write idx value output))
                     (list.enumerate values))
       output)))
@@ -206,7 +206,7 @@
 (def: #export (method visibility config name type then)
   (-> $.Visibility $.Method-Config Text $.Method $.Inst
       $.Def)
-  (function [writer]
+  (function (_ writer)
     (let [=method (ClassWriter::visitMethod [($_ i/+
                                                  (visibility-flag visibility)
                                                  (method-flags config))
@@ -224,7 +224,7 @@
 (def: #export (abstract-method visibility config name type)
   (-> $.Visibility $.Method-Config Text $.Method
       $.Def)
-  (function [writer]
+  (function (_ writer)
     (let [=method (ClassWriter::visitMethod [($_ i/+
                                                  (visibility-flag visibility)
                                                  (method-flags config)
@@ -239,7 +239,7 @@
 
 (def: #export (field visibility config name type)
   (-> $.Visibility $.Field-Config Text $.Type $.Def)
-  (function [writer]
+  (function (_ writer)
     (let [=field (do-to (ClassWriter::visitField [($_ i/+
                                                       (visibility-flag visibility)
                                                       (field-flags config))
@@ -253,7 +253,7 @@
 (do-template [<name> <lux-type> <jvm-type> <prepare>]
   [(def: #export (<name> visibility config name value)
      (-> $.Visibility $.Field-Config Text <lux-type> $.Def)
-     (function [writer]
+     (function (_ writer)
        (let [=field (do-to (ClassWriter::visitField [($_ i/+
                                                          (visibility-flag visibility)
                                                          (field-flags config))
-- 
cgit v1.2.3