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.

---
 lux-scheme/source/program.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lux-scheme/source')

diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux
index b4adddec9..8eb29a3aa 100644
--- a/lux-scheme/source/program.lux
+++ b/lux-scheme/source/program.lux
@@ -86,7 +86,7 @@
 
 (def: (variant? value)
   (-> Any Bit)
-  (case (host.check (Array java/lang/Object) (:coerce java/lang/Object value))
+  (case (host.check [java/lang/Object] (:coerce java/lang/Object value))
     (#.Some array)
     ## TODO: Get rid of this coercion ASAP.
     (let [array (:coerce (Array java/lang/Object) array)]
@@ -194,7 +194,7 @@
 
 (def: (lux-value value)
   (-> java/lang/Object java/lang/Object)
-  (<| (case (host.check (Array java/lang/Object) value)
+  (<| (case (host.check [java/lang/Object] value)
         (#.Some value)
         ## TODO: Get rid of the coercions below.
         (if (variant? value)
-- 
cgit v1.2.3