diff options
Diffstat (limited to 'lux-cl')
-rw-r--r-- | lux-cl/source/program.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux index 41e588f56..09b9b02cd 100644 --- a/lux-cl/source/program.lux +++ b/lux-cl/source/program.lux @@ -202,8 +202,8 @@ [(org/armedbear/lisp/LispObject [] (<name> self {idx int}) org/armedbear/lisp/LispObject - (case (array.read (|> idx java/lang/Integer::longValue (:as Nat)) - (:as (Array java/lang/Object) value)) + (case (array.read! (|> idx java/lang/Integer::longValue (:as Nat)) + (:as (Array java/lang/Object) value)) (#.Some sub) (to_sub sub) |