From 36303d6cb2ce3ab9e36d045b9516c997bd461862 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 24 Aug 2021 05:23:45 -0400
Subject: Outsourced the syntax for labelled type definitions to macros.

---
 .../source/luxc/lang/translation/jvm/runtime.lux   | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

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

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux b/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux
index 23d59b8f4..0e758f149 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux
@@ -359,17 +359,17 @@
 (def: translate_function
   (Operation [artifact.ID (Maybe Text) Binary])
   (let [applyI (|> (enum.range n.enum 2 num_apply_variants)
-                   (list@map (function (_ arity)
-                               ($d.method #$.Public $.noneM apply_method (apply_signature arity)
-                                          (let [preI (|> (enum.range n.enum 0 (-- arity))
-                                                         (list@map _.ALOAD)
-                                                         _.fuse)]
-                                            (|>> preI
-                                                 (_.INVOKEVIRTUAL //.$Function apply_method (apply_signature (-- arity)))
-                                                 (_.CHECKCAST //.$Function)
-                                                 (_.ALOAD arity)
-                                                 (_.INVOKEVIRTUAL //.$Function apply_method (apply_signature 1))
-                                                 _.ARETURN)))))
+                   (list@each (function (_ arity)
+                                ($d.method #$.Public $.noneM apply_method (apply_signature arity)
+                                           (let [preI (|> (enum.range n.enum 0 (-- arity))
+                                                          (list@each _.ALOAD)
+                                                          _.fuse)]
+                                             (|>> preI
+                                                  (_.INVOKEVIRTUAL //.$Function apply_method (apply_signature (-- arity)))
+                                                  (_.CHECKCAST //.$Function)
+                                                  (_.ALOAD arity)
+                                                  (_.INVOKEVIRTUAL //.$Function apply_method (apply_signature 1))
+                                                  _.ARETURN)))))
                    (list& ($d.abstract_method #$.Public $.noneM apply_method (apply_signature 1)))
                    $d.fuse)
         $Object (type.class "java.lang.Object" (list))
-- 
cgit v1.2.3