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

feat: named fn* — (fn* name [args] ...) binds name to self for recursion (unblocks named-recur; jank conformance 110->119)

Browse source
This commit is contained in:
Yogthos 2026-06-04 18:02:55 -04:00
parent 00a5dcacde
commit 305868fd88
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/jolt/evaluator.janet
View file

@ -745,6 +745,7 @@
(when rest-pat (when rest-pat
(destructure-bind ctx fn-bindings rest-pat (tuple/slice fn-args i))) (destructure-bind ctx fn-bindings rest-pat (tuple/slice fn-args i)))
(put fn-bindings :jolt/loop-fn self) (put fn-bindings :jolt/loop-fn self)
(when fn-name (bind-put fn-bindings fn-name self))
# Use defining namespace for symbol resolution # Use defining namespace for symbol resolution
(def saved-ns (ctx-current-ns ctx)) (def saved-ns (ctx-current-ns ctx))
(ctx-set-current-ns ctx defining-ns) (ctx-set-current-ns ctx defining-ns)
@ -753,7 +754,7 @@
(set result (eval-form ctx fn-bindings body-form))) (set result (eval-form ctx fn-bindings body-form)))
(ctx-set-current-ns ctx saved-ns) (ctx-set-current-ns ctx saved-ns)
result)) result))
self)) self)))
"let*" (let [bind-vec (in form 1) "let*" (let [bind-vec (in form 1)
body (tuple/slice form 2)] body (tuple/slice form 2)]
(var new-bindings @{}) (var new-bindings @{})