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

import: bring a cross-ns deftype/record ctor into the current ns (jolt-c2l1)

Browse source 
(:import [other.ns Type]) was a no-op (import unbound), so (Type. ...) failed
with 'Unknown class'. Bind import to register each named type's ctor closure
under the current ns. Corpus 2691->2692.
This commit is contained in:
Yogthos 2026-06-21 17:11:15 -04:00
parent 547a8c6d17
commit 45596d7239
2 changed files with 23 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

21
host/chez/natives-str.ss
View file

@ -307,3 +307,24 @@
specs)
jolt-nil)
(def-var! "clojure.core" "use" chez-runtime-use)
;; import: bring a deftype/defrecord from another ns into the current one. A spec
;; [from-ns Type ...] binds each Type's ctor closure under the current ns, so its
;; (Type. ...) constructor (host-new resolves it as a var) works after :import.
(define (chez-runtime-import . specs)
(for-each
(lambda (spec)
(let ((items (cond ((pvec? spec) (seq->list spec))
((or (cseq? spec) (empty-list-t? spec)) (seq->list spec))
(else '()))))
(when (and (pair? items) (symbol-t? (car items)))
(let ((from (symbol-t-name (car items))))
(for-each
(lambda (tn)
(when (symbol-t? tn)
(let ((c (var-cell-lookup from (symbol-t-name tn))))
(when (and c (var-cell-defined? c))
(def-var! (chez-current-ns) (symbol-t-name tn) (var-cell-root c))))))
(cdr items))))))
specs)
jolt-nil)
(def-var! "clojure.core" "import" chez-runtime-import)