From 8cd61c00de00728759d0362a60dbca8d23e4d8dc Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 28 May 2019 22:14:53 -0400
Subject: Both the old JVM interop and the new JVM interop use the same syntax
 for array types.

---
 new-luxc/source/luxc/lang/host/jvm/def.lux  | 10 +++++-----
 new-luxc/source/luxc/lang/host/jvm/inst.lux |  4 ++--
 2 files changed, 7 insertions(+), 7 deletions(-)

(limited to 'new-luxc/source/luxc/lang/host')

diff --git a/new-luxc/source/luxc/lang/host/jvm/def.lux b/new-luxc/source/luxc/lang/host/jvm/def.lux
index ce236c905..bf4abc8ed 100644
--- a/new-luxc/source/luxc/lang/host/jvm/def.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/def.lux
@@ -57,11 +57,11 @@
   (#static COMPUTE_MAXS int)
   (#static COMPUTE_FRAMES int)
   (new [int])
-  (visit [int int String String String (Array String)] void)
+  (visit [int int String String String [String]] void)
   (visitEnd [] void)
   (visitField [int String String String Object] FieldVisitor)
-  (visitMethod [int String String String (Array String)] MethodVisitor)
-  (toByteArray [] (Array byte)))
+  (visitMethod [int String String String [String]] MethodVisitor)
+  (toByteArray [] [byte]))
 
 (def: (string-array values)
   (-> (List Text) (Array Text))
@@ -161,7 +161,7 @@
   [(def: #export (<name> version visibility config name parameters super interfaces
                          definitions)
      (-> //.Version //.Visibility //.Class-Config Text (List Parameter) Class (List Class) //.Def
-         (host.type (Array byte)))
+         (host.type [byte]))
      (let [writer (|> (do-to (ClassWriter::new class-computes)
                         (ClassWriter::visit (version-flag version)
                                             ($_ i/+
@@ -188,7 +188,7 @@
 (def: #export (interface version visibility config name parameters interfaces
                          definitions)
   (-> //.Version //.Visibility //.Class-Config Text (List Parameter) (List Class) //.Def
-      (host.type (Array byte)))
+      (host.type [byte]))
   (let [writer (|> (do-to (ClassWriter::new class-computes)
                      (ClassWriter::visit (version-flag version)
                                          ($_ i/+
diff --git a/new-luxc/source/luxc/lang/host/jvm/inst.lux b/new-luxc/source/luxc/lang/host/jvm/inst.lux
index 040f6f04a..aeb9621ef 100644
--- a/new-luxc/source/luxc/lang/host/jvm/inst.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/inst.lux
@@ -122,8 +122,8 @@
   (visitLabel [org/objectweb/asm/Label] void)
   (visitJumpInsn [int org/objectweb/asm/Label] void)
   (visitTryCatchBlock [org/objectweb/asm/Label org/objectweb/asm/Label org/objectweb/asm/Label java/lang/String] void)
-  (visitLookupSwitchInsn [org/objectweb/asm/Label (Array int) (Array org/objectweb/asm/Label)] void)
-  (visitTableSwitchInsn [int int org/objectweb/asm/Label (Array org/objectweb/asm/Label)] void)
+  (visitLookupSwitchInsn [org/objectweb/asm/Label [int] [org/objectweb/asm/Label]] void)
+  (visitTableSwitchInsn [int int org/objectweb/asm/Label [org/objectweb/asm/Label]] void)
   )
 
 ## [Insts]
-- 
cgit v1.2.3