test: remove stale machine-specific bootstrap-test scratch file

bootstrap-test.janet slurped a hardcoded /Users/yogthos/src/sci path (a
personal SCI clone, not vendor/sci) and had no assertions — a dev scratch
file that fails anywhere but the author's machine. SCI loading is already
covered by sci-bootstrap-test/sci-runtime-test against the vendored
submodule.
This commit is contained in:
Yogthos 2026-06-05 18:33:01 -04:00
parent 5e69f71947
commit 11e44e1774

View file

@ -1,28 +0,0 @@
(use ../../src/jolt/evaluator)
(use ../../src/jolt/types)
(use ../../src/jolt/reader)
(use ../../src/jolt/api)
(def ctx (init))
(def source (slurp "/Users/yogthos/src/sci/src/sci/impl/macros.cljc"))
(var s source)
(var count 0)
(while (> (length (string/trim s)) 0)
(def [form rest] (parse-next s))
(set s rest)
(++ count)
(if (not (nil? form))
(do
(printf "eval form %d..." count)
(flush)
(eval-form ctx @{} form)
(printf " OK\n"))))
(printf "\n%d forms processed\n" count)
(printf "ns: %s\n" (ctx-current-ns ctx))
(let [ns (ctx-find-ns ctx "sci.impl.macros")]
(printf "sci.impl.macros bindings:\n")
(loop [[name v] :pairs (ns :mappings)]
(printf " %s: macro=%q\n" name (v :macro))))