diff options
Diffstat (limited to 'lux-scheme')
| -rw-r--r-- | lux-scheme/source/program.lux | 6 |
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} |