From b63ac226cc2ea843f08f7c72b18d22602462c624 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 7 Sep 2019 01:50:37 -0400
Subject: Modified compiler's machinery to use the new abstractions for
 descriptors and signatures.

---
 new-luxc/source/luxc/lang/translation/jvm/reference.lux | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/reference.lux b/new-luxc/source/luxc/lang/translation/jvm/reference.lux
index 1995fcd74..77e98b73b 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/reference.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/reference.lux
@@ -7,8 +7,7 @@
      ["%" format (#+ format)]]]
    [target
     [jvm
-     [type
-      ["." descriptor]]]]
+     ["." type]]]
    [tool
     [compiler
      ["." name]
@@ -36,7 +35,7 @@
   (do phase.monad
     [function-class generation.context]
     (wrap (|>> (_.ALOAD 0)
-               (_.GETFIELD (descriptor.class function-class)
+               (_.GETFIELD (type.class function-class (list))
                            (|> variable .nat foreign-name)
                            //.$Value)))))
 
@@ -57,4 +56,4 @@
   (-> Name (Operation Inst))
   (do phase.monad
     [bytecode-name (generation.remember name)]
-    (wrap (_.GETSTATIC (descriptor.class bytecode-name) //.value-field //.$Value))))
+    (wrap (_.GETSTATIC (type.class bytecode-name (list)) //.value-field //.$Value))))
-- 
cgit v1.2.3