simon/jolt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

test(spec): control-flow, functions, destructuring — fix loop destructuring

Browse source 
Add spec suites for conditionals/logic/let/loop/iteration/threading, functions
(definition, application, combinators), and destructuring across let/fn/loop/
doseq/for. Bug caught and fixed: loop* assumed simple-symbol bindings, so
(loop [[a b] [1 2]] ...) errored; it now destructures each binding via
destructure-bind, supporting patterns in loop bindings (and recur). jpm test green.
This commit is contained in:
Yogthos 2026-06-05 00:16:15 -04:00
parent 68d6b1d6c1
commit 50d63d896f
4 changed files with 136 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/jolt/evaluator.janet
View file

@ -788,19 +788,20 @@
"loop*" (let [bind-vec (in form 1)
body (tuple/slice form 2)
init-vals @[]
sym-names @[]]
patterns @[]]
(var i 0)
(while (< i (length bind-vec))
(array/push init-vals (eval-form ctx bindings (bind-vec (+ i 1))))
(array/push sym-names ((bind-vec i) :name))
# keep the binding form (symbol OR destructuring pattern)
(array/push patterns (bind-vec i))
(+= i 2))
(var loop-fn nil)
(set loop-fn (fn [& args]
(var loop-bindings @{})
(table/setproto loop-bindings bindings)
(var j 0)
(each sn sym-names
(bind-put loop-bindings sn (args j))
(each pat patterns
(destructure-bind ctx loop-bindings pat (in args j))
(++ j))
(put loop-bindings :jolt/loop-fn loop-fn)
(var result nil)