diff options
Diffstat (limited to 'lux-scheme/source/program.lux')
| -rw-r--r-- | lux-scheme/source/program.lux | 4 |
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) |