aboutsummaryrefslogtreecommitdiff
path: root/lux-scheme
diff options
context:
space:
mode:
Diffstat (limited to 'lux-scheme')
-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)