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