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

Chez Phase 1 (increment 3a): persistent collections on the Chez RT

Browse source 
Broaden the Scheme back end past the numeric/functional subset to vectors,
maps, and sets. host/chez/collections.ss adds a copy-on-write persistent
vector and a bitmap HAMT (the structure 0c measured self-hostable) backing
both maps and sets, keyed by jolt-hash and compared by jolt=. emit.janet
emits :vector/:map/:set literals to the rt constructors and lowers the leaf
ops (conj/get/nth/count/assoc/dissoc/contains?/empty?/peek/pop) via the
native-ops path, with a per-op arity gate.

Also: keyword/map literals in fn position lower to jolt-get ((:k m), ({:k v} k));
arity-1 comparisons emit the vacuous jolt truth (Scheme < rejects a non-number
even at arity 1); count returns a flonum and vector indices coerce from flonum,
both consequences of the all-double number model; values.ss = / hash and the
rt printer learn collections (maps/sets render in HAMT order, so the probe
compares unordered values via =, not printed form).

Subset parity 182 -> 433/436 compiled cases (2219/2655 out of subset), 0 new
divergences. The 3 known divergences are dynamic IFn dispatch (a keyword/vector
held in a local, called as a fn) — deferred to the IFn/protocol increment and
allowlisted in the probe. emit-test 31/31, full run-tests green (125 files).
This commit is contained in:
Yogthos 2026-06-17 14:33:57 -04:00
parent 9bbcc07c8f
commit 5c5d2cd1fc
7 changed files with 473 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

24
test/chez/run-corpus-chez.janet
View file

@ -27,9 +27,21 @@
(seq [i :range [0 (length corpus) stride]] (in corpus i)))
corpus))
# Known subset divergences: cases that compile but need a feature beyond the
# current increment. Dynamic IFn dispatch — a keyword/vector held in a LOCAL or
# var then called as a fn ((let [k :a] (k m))) — is runtime dispatch on the
# invoke mechanism, deferred to the IFn/protocol increment. The STATIC literal
# forms ((:a m), ({:a 1} :a)) ARE supported. Allowlisted by label; the gate fails
# only on a NEW divergence.
(def known-divergences
{"param holding a keyword (IFn leftover)" true
"vector-in-local as fn" true
"keyword-in-local as fn" true})
(def ctx (d/make-ctx))
(var compiled 0) (var pass 0) (var out-of-subset 0)
(def diverged @[])
(def known-hit @[])
(each row cases
(def {:expected e :actual a :label l} row)
@ -44,15 +56,17 @@
(++ out-of-subset)
(let [[code out] res]
(++ compiled)
(defn record-div [m] (if (known-divergences l) (array/push known-hit l) (array/push diverged [l m])))
(cond
(not= code 0) (array/push diverged [l (string "exit " code)])
(not= code 0) (record-div (string "exit " code))
(= out "true") (++ pass)
(array/push diverged [l (string "got " out)])))))))
(record-div (string "got " out))))))))
(printf "\nChez subset parity: %d/%d compiled cases pass (%d/%d corpus out of subset)"
pass compiled out-of-subset (length cases))
(printf "\nChez subset parity: %d/%d compiled cases pass (%d/%d out of subset, %d known divergences)"
pass compiled out-of-subset (length cases) (length known-hit))
(when (> (length diverged) 0)
(printf "%d divergence(s) within the compiled subset:" (length diverged))
(printf "%d NEW divergence(s) within the compiled subset:" (length diverged))
(each [l m] (slice diverged 0 (min 25 (length diverged)))
(printf " [%s] %s" l m)))
(flush)
(os/exit (if (> (length diverged) 0) 1 0))