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.

---
 lux-jvm/source/luxc/lang/translation/jvm/structure.lux | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

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

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/structure.lux b/lux-jvm/source/luxc/lang/translation/jvm/structure.lux
index 71e9c514f..5676fa5f9 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/structure.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/structure.lux
@@ -50,14 +50,14 @@
                         (n.>= 2 size))
      membersI (|> members
                   list.enumeration
-                  (monad.map @ (function (_ [idx member])
-                                 (do @
-                                   [memberI (generate archive member)]
-                                   (in (|>> _.DUP
-                                            (_.int (.int idx))
-                                            memberI
-                                            _.AASTORE)))))
-                  (\ @ map _.fuse))]
+                  (monad.each @ (function (_ [idx member])
+                                  (do @
+                                    [memberI (generate archive member)]
+                                    (in (|>> _.DUP
+                                             (_.int (.int idx))
+                                             memberI
+                                             _.AASTORE)))))
+                  (\ @ each _.fuse))]
     (in (|>> (_.int (.int size))
              (_.array //runtime.$Value)
              membersI))))
-- 
cgit v1.2.3