From 6fd22846f21b8b70b7867e989109d14a366c0a3e Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 14 Aug 2021 03:09:58 -0400
Subject: Moved documentation-generation machinery to its own module.

---
 lux-cl/source/program.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lux-cl')

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)
 
-- 
cgit v1.2.3