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

Delete the Janet host — Chez is the sole substrate

Browse source 
Remove the Janet seed (src/jolt/*.janet: reader, value layer, vars/ns, the
tree-walking interpreter, the Janet backend, the optimizing compiler), the
Janet->Scheme cross-compiler (host/chez/{driver,emit,jolt-chez}.janet),
bin/jolt-chez, the jpm build (project.janet) and the Janet test runner
(run-tests.janet), plus the entire Janet test suite. jolt now builds and runs
on Chez alone: bin/joltc off the checked-in seed, bootstrap.ss to rebuild it.

The portable Clojure stays: jolt-core/**, host/chez/**.ss, and the stdlib +
tooling under src/jolt/clojure + src/jolt/jolt (read by the seed build, no
Janet). The gate is 'make test' (self-host, corpus, unit, cli smoke, certify).
Drop the sci and clojure-test-suite submodules (used only by deleted Janet
integration tests); irregex stays.

Filesystem corpus/unit cases that probed project.janet now probe README.md.

jolt-cf1q.6
This commit is contained in:
Yogthos 2026-06-21 11:29:03 -04:00
parent 5c1fdfc336
commit 58d03d67be
221 changed files with 16 additions and 29925 deletions
Download patch file Download diff file Expand all files Collapse all files

42
test/conformance/certify-test.janet
View file

@ -1,42 +0,0 @@
# Conformance inc1 (jolt-xsfe) — gate wrapper for the JVM corpus certifier.
#
# test/conformance/certify.clj evaluates every test/chez/corpus.edn row through
# reference JVM Clojure and checks jolt's hand-written :expected against what real
# Clojure produces. Divergences are classified in test/conformance/known-divergences.edn
# (deliberate jolt-specific / host-model deltas + tracked bugs); the certifier exits
# nonzero only on a NEW (unclassified) divergence or a stale allowlist entry.
#
# This wrapper runs it in the Janet gate and skips cleanly when `clojure` (JVM) is
# not installed — same pattern as the chez tests skipping without `chez`.
#
# janet test/conformance/certify-test.janet
(defn- have-clojure? []
(def p (try (os/spawn ["clojure" "--version"] :p {:out :pipe :err :pipe}) ([_] nil)))
(if (nil? p) false
(do (def out (ev/read (p :out) :all)) (def err (ev/read (p :err) :all))
(zero? (os/proc-wait p)))))
(unless (have-clojure?)
(print "clojure (JVM) not on PATH — skipping corpus certification")
(os/exit 0))
(def proc (os/spawn ["clojure" "-M" "test/conformance/certify.clj"] :p {:out :pipe :err :pipe}))
(def out (string (ev/read (proc :out) :all)))
(def err (string (or (ev/read (proc :err) :all) "")))
(def code (os/proc-wait proc))
# Echo the summary lines so the gate log shows the certification status.
(each line (string/split "\n" out)
(when (or (string/find "certif" line) (string/find "allowlist" line)
(string/find "NEW" line) (string/find "STALE" line) (string/find "DIVERGENT" line))
(print line)))
(when (not= code 0)
(eprint "corpus certification FAILED (new/stale divergence vs reference Clojure):")
(eprint out)
(unless (= "" err) (eprint err))
(os/exit 1))
(print "corpus certification: OK (all divergences classified)")
(os/exit 0)