Emit a :quote node by reconstructing the raw reader form as RT constructor calls: symbol -> jolt-symbol, list (array) -> jolt-list, vector (tuple) -> jolt-vector, map -> jolt-hash-map, set -> jolt-hash-set, scalars via emit-const. The runtime value of a quote is just that literal data (the interpreter returns the reader form verbatim). Quote exposed a latent seq.ss bug: empty map/filter results were jolt-nil, but Clojure's (map f []) is an empty seq, so (= () (map f [])) must be true. Return jolt-empty-list (which seqs back to nil, so it's still a valid lazy-tail terminator) instead — matching jolt-take/drop/rest/list. Prelude emit reach 334 -> 342/355. Subset probe 632 -> 664/664 compiled, 0 divergences (quote + the seq fix pull 32 corpus cases into the subset). emit-test 110/110 (added 16 quote cases). corpus.edn regenerated (the 3 malformed-catch spec rows). Full gate green.
6 KiB
Chez port — Phase 0 test contract harness
The host-neutral correctness gate for the Chez re-host (epic jolt-cf1q). The spec corpus is data, so the SAME contract validates every host.
Files
extract-corpus.janet— parsestest/spec/*.janet(defspec …)tables as data and writescorpus.edn(2655[label expected actual]cases). The file is valid as BOTH EDN (a future Chez-jolt runner) and Janet data (the runner below). Regenerate:janet test/chez/extract-corpus.janet.corpus.edn— the extracted contract (generated; checked in for convenience).run-corpus.janet— drives a TARGET jolt binary, one fresh subprocess per case (fresh ctx = per-case isolation), checking(= expected actual)printstrueat the CLI, or that a:throwscase exits non-zero. Pluggable target:janet test/chez/run-corpus.janet# default build/joltJOLT_BIN=build/jolt-chez janet test/chez/run-corpus.janet# Phase 1+JOLT_CORPUS_LIMIT=400 …# every-Nth stride, fast
known-divergences.edn— allowlist of cases that diverge at the CLI boundary. The gate fails only on a NEW divergence; known ones are reported but tolerated.values-test.ss/../../host/chez/values.ss— Phase 0a value model + tests.
The reference baseline (2026-06-17, Janet build/jolt, compile mode)
2641/2655 pass; 14 known divergences. They split into:
- interpret-vs-compile leniency —
:throwscases where interpret mode raises but compile mode returns (< nil,> with nil,neg? keyword,max/min-keyon non-numbers). Several are also non-canonical vs JVM Clojure. - invoke-collection-as-fn — the
transient / invokable lookupsuite invokes transients/collections as fns (((transient {:x 7}) :x)); compile mode (and JVM Clojure) reject it. xml-seq walks— one structural case.
The compile-only Chez host (JVM-canonical oracle) should MATCH OR FIX these. The gate's job is to catch regressions the port introduces, not to bless these.
Why the CLI boundary
The runner tests through jolt -e, exactly how the Chez host will be exercised —
not the in-process eval-string the Janet defspec harness uses. The two differ
on a handful of cases (the allowlist), and the CLI boundary is the portable one.
Phase 1 — first parity number (subset probe)
The full run-corpus.janet gate drives an -e-capable jolt binary; the Chez
host can't answer arbitrary -e until all of clojure.core is bootstrapped onto
Chez (Phase 2). Until then, run-corpus-chez.janet reports parity for the subset
the Phase-1 back end (host/chez/emit.janet) can already compile: each case is
run through the live analyzer → Scheme emitter → Chez via host/chez/driver.
Cases that reference unimplemented stdlib/host fns fail to EMIT (a clean
compile-time signal) and are counted "out of subset", not as divergences.
JOLT_CHEZ_CORPUS=1 janet test/chez/run-corpus-chez.janet
Baseline after inc 3f (quoted literals): 664/664 compiled cases pass, 0
divergences; 1994/2658 out of subset (await clojure.core on Chez). Inc 3e
(throw/try + ex-info) was 632/632; inc 3f's quote support + a seq.ss fix (empty
map/filter results are () not nil, matching Clojure) pulled 32 more corpus
cases into the subset. emit-fn lowers multi-arity fns to a Scheme case-lambda
and variadic fns to a rest-arg lambda (rest list coerced to a jolt seq, nil when
empty).
Phase 1 — clojure.core prelude emission (inc 3d, jolt-ocvi)
The -e-capable jolt-chez path: emit the clojure.core tiers
(jolt-core/clojure/core/NN-*.clj) through the same analyzer → emit pipeline as a
Scheme PRELUDE of def-var! forms, so user code's (var-deref "clojure.core" …)
resolves the fn at runtime. emit/set-prelude-mode! flips a switch: in the default
(subset) mode a non-native clojure.core ref is rejected ("out of subset"); in
prelude mode it lowers to a runtime var-deref so core fns chain through each
other. Host interop (:host) and unhandled IR ops still error in both modes —
those are the real gaps that need a hand-written RT shim or new emit support.
core-prelude-probe.janet (gated behind JOLT_CHEZ_PRELUDE=1) measures reach and
catalogs the gaps; macros are skipped (analyze-time only, not a runtime value):
JOLT_CHEZ_PRELUDE=1 janet test/chez/core-prelude-probe.janet
Baseline after inc 3f (quoted literals): 342/355 non-macro core forms emit to
Scheme (was 334 at inc 3e, 303 at inc 3d). A :quote node reconstructs the raw
reader form as RT constructor calls — symbol → jolt-symbol, list → jolt-list,
vector → jolt-vector, map/set → jolt-hash-map/jolt-hash-set, scalars via
emit-const. Prior: :throw → jolt-throw (Scheme raise of the raw jolt
value); :try → guard (catch, class dropped → catch-all) + dynamic-wind
(finally); ex-info native-op building the tagged jolt map, so the tier
ex-data/ex-message/ex-cause read it over get for free. Remaining 13 gaps: Java
host interop .write/.isDirectory (6, io tier), letfn (4), declare/
def-no-init (2), one edge (parse-uuid). The probe has a regression floor.
Prior, inc 3b (seq tier + dynamic IFn, jolt-5pso): 595/595 compiled, 0 divergences,
2060/2655 out of subset. The seq tier brought up a list/lazy-seq type with
first/rest/next/seq/cons/list, map/filter/reduce/into/remove,
range/take/drop/concat/apply, keys/vals, and nth/peek/pop over seqs; dynamic IFn
dispatch (a keyword/vector/coll held in a local and called as a fn) routes through
the jolt-invoke fallback, closing the 3 ex-known divergences. The probe exits
non-zero on any NEW divergence.
(Prior, inc 3a: 433/436 compiled, 3 known IFn divergences, 2219 out of subset. Inc 2: 182/182 compiled, 0 divergences, 2473 out of subset.)
It's a slow report (a Chez subprocess per case), so it's gated behind
JOLT_CHEZ_CORPUS out of the default suite, like the benches.
test/chez/emit-test.janet is the fast Phase-1 unit gate (real analyzer → Chez
parity for fib/mandelbrot + collections + regressions); both skip cleanly when
chez isn't on PATH.