aboutsummaryrefslogtreecommitdiff
path: root/lux-scheme/source
diff options
context:
space:
mode:
authorEduardo Julian2019-05-28 22:14:53 -0400
committerEduardo Julian2019-05-28 22:14:53 -0400
commit8cd61c00de00728759d0362a60dbca8d23e4d8dc (patch)
tree4eaf5b75bea6bd84b1db28eb405539213392a588 /lux-scheme/source
parentf55e513690400cce9e5e17a01a98922d91e086c3 (diff)
Both the old JVM interop and the new JVM interop use the same syntax for array types.
Diffstat (limited to 'lux-scheme/source')
-rw-r--r--lux-scheme/source/program.lux4
1 files changed, 2 insertions, 2 deletions
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)