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

Merge pull request #215 from jolt-lang/cleanup/dedup-fresh-sym

Browse source 
Drop duplicate fresh-sym; clarify group-by-head vs parse-extend-impls
This commit is contained in:
Dmitri Sotnikov 2026-06-25 21:38:23 +00:00 • committed by GitHub
commit 5b77efa499
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
3 changed files with 558 additions and 557 deletions
Download patch file Download diff file Expand all files Collapse all files

516
host/chez/seed/image.ss
View file

File diff suppressed because one or more lines are too long

590
host/chez/seed/prelude.ss
View file

File diff suppressed because one or more lines are too long

9
jolt-core/clojure/core/30-macros.clj
View file

@ -164,9 +164,8 @@
(loop [~i 0] (loop [~i 0]
(when (< ~i n#) ~@body (recur (inc ~i))))))) (when (< ~i n#) ~@body (recur (inc ~i)))))))
;; A fresh jolt symbol inside a macro body: a bare (gensym) returns a host symbol ;; fresh-sym (a macro-body gensym round-tripped through str) is defined in
;; the destructurer rejects, so round-trip through str. ;; 00-syntax, which loads before this tier — reuse it.
(defn- fresh-sym [] (symbol (str (gensym))))
;; Lazy-safe: take only the head via first (Clojure uses (seq coll), but Jolt's ;; Lazy-safe: take only the head via first (Clojure uses (seq coll), but Jolt's
;; eager seq would realize an infinite coll like (repeat nil) and hang). ;; eager seq would realize an infinite coll like (repeat nil) and hang).
@ -264,6 +263,10 @@
;; Group a flat seq that starts with a head symbol followed by its list specs ;; Group a flat seq that starts with a head symbol followed by its list specs
;; into [[head spec spec ...] ...] runs. Used by extend-protocol and defrecord. ;; into [[head spec spec ...] ...] runs. Used by extend-protocol and defrecord.
;; Group deftype/defrecord/reify body forms: a symbol/nil head starts a new
;; group, every other form appends to the current one. (extend-protocol uses
;; parse-extend-impls instead — it must treat a COMPUTED class type like
;; (Class/forName "[B"), a seq, as a head, which this would misread as a method.)
(defn- group-by-head [items] (defn- group-by-head [items]
;; nil is a valid extension head (extend-protocol P ... nil (m [x] ...)). ;; nil is a valid extension head (extend-protocol P ... nil (m [x] ...)).
(reduce (fn [acc x] (reduce (fn [acc x]