diff options
Diffstat (limited to 'lux-scheme/source')
| -rw-r--r-- | lux-scheme/source/program.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux index f25a71bbe..7a82b96bb 100644 --- a/lux-scheme/source/program.lux +++ b/lux-scheme/source/program.lux @@ -138,7 +138,7 @@ ... TODO: Get rid of this coercion ASAP. (let [array (:as (Array java/lang/Object) array)] (and (n.= 3 (array.size array)) - (case (array.read 0 array) + (case (array.read! 0 array) (#.Some tag) (case (ffi.check java/lang/Integer tag) (#.Some _) @@ -176,14 +176,14 @@ (gnu/lists/Pair [] (getCar self) java/lang/Object (if cdr? - (case (array.read 1 value) + (case (array.read! 1 value) (#.Some flag_is_set) true #.None false) (|> value - (array.read 0) + (array.read! 0) maybe.assume (:as java/lang/Integer) gnu/math/IntNum::new))) @@ -191,7 +191,7 @@ [] (getCdr self) java/lang/Object (if cdr? (|> value - (array.read 2) + (array.read! 2) maybe.assume lux_value) (variant_value lux_value true value))))) @@ -210,7 +210,7 @@ (gnu/lists/SimpleVector [] (getRaw self {idx int}) java/lang/Object (|> value - (array.read (|> idx java/lang/Integer::longValue (:as Nat))) + (array.read! (|> idx java/lang/Integer::longValue (:as Nat))) maybe.assume lux_value)) (gnu/lists/SimpleVector |