From 11e44e17740f0a7ac5a2e344f35a2ed82fb7c6c1 Mon Sep 17 00:00:00 2001 From: Yogthos Date: Fri, 5 Jun 2026 18:33:01 -0400 Subject: [PATCH] test: remove stale machine-specific bootstrap-test scratch file MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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. --- test/integration/bootstrap-test.janet | 28 --------------------------- 1 file changed, 28 deletions(-) delete mode 100644 test/integration/bootstrap-test.janet diff --git a/test/integration/bootstrap-test.janet b/test/integration/bootstrap-test.janet deleted file mode 100644 index 169d109..0000000 --- a/test/integration/bootstrap-test.janet +++ /dev/null @@ -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))))