aboutsummaryrefslogtreecommitdiff
path: root/lux-scheme/source
diff options
context:
space:
mode:
Diffstat (limited to 'lux-scheme/source')
-rw-r--r--lux-scheme/source/program.lux6
1 files changed, 3 insertions, 3 deletions
diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux
index 7689755c5..78d96e962 100644
--- a/lux-scheme/source/program.lux
+++ b/lux-scheme/source/program.lux
@@ -287,9 +287,9 @@
(def: (read_tuple read host_object)
(-> (Reader java/lang/Object) (Reader (gnu/lists/FVector java/lang/Object)))
(let [size (.nat (gnu/lists/FVector::getBufferLength host_object))]
- (loop [idx 0
- output (is (Array Any)
- (array.new size))]
+ (loop (again [idx 0
+ output (is (Array Any)
+ (array.new size))])
(if (n.< size idx)
(case (read (gnu/lists/FVector::getRaw (.int idx) host_object))
{try.#Failure error}