diff options
| author | Eduardo Julian | 2021-08-14 03:09:58 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-08-14 03:09:58 -0400 |
| commit | 6fd22846f21b8b70b7867e989109d14a366c0a3e (patch) | |
| tree | 9086774968ad944133dc5cf29c546add6e13a4b6 /lux-scheme/source | |
| parent | e53c1a090eb9cfac3cb23d10d981648d02518ed1 (diff) | |
Moved documentation-generation machinery to its own module.
Diffstat (limited to 'lux-scheme/source')
| -rw-r--r-- | lux-scheme/source/program.lux | 10 |
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 |