diff options
| author | Eduardo Julian | 2022-03-30 14:05:57 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-03-30 14:05:57 -0400 |
| commit | 381ec5920d9ebeb335963778dec182268819e718 (patch) | |
| tree | 5c9288c5fbb16c21a0f00f96710b0aa7db4585f4 /lux-cl | |
| parent | 1a962ee4b03f51f46a5979bfefc954f35ee3a1b7 (diff) | |
Now demanding mandatory loop names, instead of using default "again" name.
Diffstat (limited to 'lux-cl')
| -rw-r--r-- | lux-cl/source/program.lux | 4 |
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)) |