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-ruby/source/program.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lux-ruby')

diff --git a/lux-ruby/source/program.lux b/lux-ruby/source/program.lux
index 5d8c81858..3e6a4d638 100644
--- a/lux-ruby/source/program.lux
+++ b/lux-ruby/source/program.lux
@@ -383,7 +383,7 @@
      (let [member (ffi.array_read 0 args)]
        (<| (case (ffi.check org/jruby/RubyFixnum member)
              (#.Some member)
-             (case (array.read (org/jruby/RubyFixnum::getLongValue member) value)
+             (case (array.read! (org/jruby/RubyFixnum::getLongValue member) value)
                (#.Some value)
                (wrapped_lux_value lux_structure value)
 
@@ -396,14 +396,14 @@
              (case (:as Text (org/jruby/RubyString::asJavaString member))
                (^ (static runtime.variant_tag_field))
                (|> value
-                   (array.read 0)
+                   (array.read! 0)
                    maybe.assume
                    (:as java/lang/Integer)
                    java/lang/Integer::longValue
                    (org/jruby/RubyFixnum::new ..initial_ruby_runtime))
 
                (^ (static runtime.variant_flag_field))
-               (case (array.read 1 value)
+               (case (array.read! 1 value)
                  #.None
                  ..ruby_nil
                  
@@ -411,7 +411,7 @@
                  ..lux_unit)
                
                (^ (static runtime.variant_value_field))
-               (case (array.read 2 value)
+               (case (array.read! 2 value)
                  (#.Some value)
                  (wrapped_lux_value lux_structure value)
 
-- 
cgit v1.2.3