diff options
| author | Eduardo Julian | 2019-05-28 22:14:53 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-05-28 22:14:53 -0400 |
| commit | 8cd61c00de00728759d0362a60dbca8d23e4d8dc (patch) | |
| tree | 4eaf5b75bea6bd84b1db28eb405539213392a588 /lux-scheme/source | |
| parent | f55e513690400cce9e5e17a01a98922d91e086c3 (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.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) |