33eff7c7d8
Rename src/jolt -> stdlib (the runtime-loaded layer; jolt-core stays the seed-baked layer) and update the loader / emit-image / doc paths. Drop dead code: the spike/ experiments, the duplicate clojuredocs-export.edn (json moves to tools/), the Janet-era jolt.http binding, and the orphaned persistent_vector.clj whose ns/path didn't even match. Strip porting residue from comments and docstrings across host/chez, jolt-core, stdlib, tests, and docs: internal issue ids, "Phase N" markers, and the "vs Janet" historical exposition, leaving present-tense descriptions and the real JVM-Clojure semantic contrasts. Same pass over the corpus suite labels. The seed is unchanged (docstrings/comments aren't emitted), so the self-host fixpoint and corpus are untouched. Port tools/spec_coverage.py off the dead janet probe to bin/joltc and regenerate coverage.md; drop the dead :host/janet rule from certify.clj and regenerate the conformance profile. Add docs/host-interop.md (the JVM shims and how to register your own host class from a library) and a writing-style note in CLAUDE.md. Stabilize the four racy concurrency corpus cases (future-cancel and agent send/send-off): give the future a sleeping body and the agent a slow action, so cancel reliably catches an in-flight future and deref reliably reads the pre-update snapshot. They certify deterministically now, so drop their :flaky allowlist entries and the orphaned legend.
36 lines
1.4 KiB
Clojure
36 lines
1.4 KiB
Clojure
; Minimal sci.impl.io stub for the Jolt bootstrap.
|
|
; SCI's real io.cljc needs JVM/CLJS-only features (System/getenv, *print-meta*,
|
|
; thread-local *out* binding). Jolt has native I/O, so we provide just the names
|
|
; that sci.impl.namespaces references when building the clojure.core binding map,
|
|
; backed by Jolt's native equivalents. (Only references symbols Jolt defines.)
|
|
(ns sci.impl.io)
|
|
|
|
(def out (atom nil))
|
|
(def in (atom nil))
|
|
(def err (atom nil))
|
|
(def newline (fn newline [] (clojure.core/pr "\n") nil))
|
|
(def flush (fn flush [] nil))
|
|
(def pr clojure.core/pr)
|
|
(def prn clojure.core/prn)
|
|
(def print clojure.core/print)
|
|
(def println clojure.core/println)
|
|
(def pr-str clojure.core/pr-str)
|
|
(def prn-str clojure.core/prn-str)
|
|
(def print-str clojure.core/str)
|
|
(def println-str clojure.core/println-str)
|
|
(def printf (fn printf [fmt & args] (clojure.core/print (apply clojure.core/format fmt args)) nil))
|
|
(def print-simple (fn print-simple [o w] (clojure.core/pr o) nil))
|
|
(def read-line (fn read-line [] nil))
|
|
(def with-out-str (fn with-out-str [& body] ""))
|
|
(def with-in-str (fn with-in-str [s & body] nil))
|
|
(def print-dup-var (atom false))
|
|
(def print-meta (atom false))
|
|
(def print-readably (atom true))
|
|
(def print-length (atom nil))
|
|
(def print-level (atom nil))
|
|
(def print-namespace-maps (atom false))
|
|
(def print-newline (atom true))
|
|
(def flush-on-newline (atom true))
|
|
(def print-fn (atom nil))
|
|
(def print-err-fn (atom nil))
|
|
(def file (atom nil))
|