aboutsummaryrefslogtreecommitdiff
path: root/lux-cl/source
diff options
context:
space:
mode:
Diffstat (limited to 'lux-cl/source')
-rw-r--r--lux-cl/source/program.lux4
1 files changed, 2 insertions, 2 deletions
diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux
index 5e01060b3..0a57c9350 100644
--- a/lux-cl/source/program.lux
+++ b/lux-cl/source/program.lux
@@ -240,8 +240,8 @@
(def: (read_tuple read host_object)
(-> (Reader org/armedbear/lisp/LispObject) (Reader org/armedbear/lisp/SimpleVector))
(let [size (.nat (org/armedbear/lisp/LispObject::length host_object))]
- (loop [idx 0
- output (as (Array Any) (array.new size))]
+ (loop (again [idx 0
+ output (as (Array Any) (array.new size))])
(if (n.< size idx)
... TODO: Start using "SVREF" instead of "elt" ASAP
(case (read (org/armedbear/lisp/LispObject::elt (.int idx) host_object))