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-scheme/source/program.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'lux-scheme')

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