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/reference.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/reference.lux b/lux-jvm/source/luxc/lang/translation/jvm/reference.lux
index a62dc5eea..2c37cf101 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/reference.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/reference.lux
@@ -39,7 +39,7 @@
 (def: (foreign archive variable)
   (-> Archive Register (Operation Inst))
   (do {@ phase.monad}
-    [class_name (\ @ map //.class_name
+    [class_name (\ @ each //.class_name
                    (generation.context archive))]
     (in (|>> (_.ALOAD 0)
              (_.GETFIELD (type.class class_name (list))
@@ -62,6 +62,6 @@
 (def: .public (constant archive name)
   (-> Archive Name (Operation Inst))
   (do {@ phase.monad}
-    [class_name (\ @ map //.class_name
+    [class_name (\ @ each //.class_name
                    (generation.remember archive name))]
     (in (_.GETSTATIC (type.class class_name (list)) //.value_field //.$Value))))
-- 
cgit v1.2.3