From 93f0e4271614ca9bdcaf80c7486429f5a8289d27 Mon Sep 17 00:00:00 2001
From: Yogthos <yogthos@gmail.com>
Date: Mon, 1 Jun 2026 23:41:49 -0400
Subject: [PATCH] cleanup trace file

---
 trace-dv.janet | 57 --------------------------------------------------
 1 file changed, 57 deletions(-)
 delete mode 100644 trace-dv.janet

diff --git a/trace-dv.janet b/trace-dv.janet
deleted file mode 100644
index 04d9cf4..0000000
--- a/trace-dv.janet
+++ /dev/null
@@ -1,57 +0,0 @@
-(use ./src/jolt/evaluator)
-(use ./src/jolt/types)
-(use ./src/jolt/reader)
-(use ./src/jolt/api)
-
-# Override resolve-sym with tracing
-(def old-resolve-sym @{:private true})
-
-# Monkey-patch eval-list to add tracing
-(var orig-eval-list nil)
-# Just add a direct trace in fn*
-
-(def ctx (init))
-(each fp ["/Users/yogthos/src/sci/src/sci/impl/macros.cljc"
-          "/Users/yogthos/src/sci/src/sci/impl/protocols.cljc"
-          "/Users/yogthos/src/sci/src/sci/impl/types.cljc"
-          "/Users/yogthos/src/sci/src/sci/impl/unrestrict.cljc"]
-  (def src (slurp fp))
-  (var s src)
-  (while (> (length (string/trim s)) 0)
-    (def [f r] (parse-next s)) (set s r)
-    (if (not (nil? f)) (protect (eval-form ctx @{} f)))))
-
-(def vs (slurp "/Users/yogthos/src/sci/src/sci/impl/vars.cljc"))
-(var s vs) (var c 0)
-(while (and (> (length (string/trim s)) 0) (< c 27))
-  (def [f r] (parse-next s)) (set s r) (++ c)
-  (if (not (nil? f)) (protect (eval-form ctx @{} f))))
-
-(def ls (slurp "/Users/yogthos/src/sci/src/sci/lang.cljc"))
-(set s ls)
-(while (> (length (string/trim s)) 0)
-  (def [f r] (parse-next s)) (set s r)
-  (if (not (nil? f)) (protect (eval-form ctx @{} f))))
-
-# Load utils up to form 35
-(def us (slurp "/Users/yogthos/src/sci/src/sci/impl/utils.cljc"))
-(set s us) (set c 0)
-(while (and (> (length (string/trim s)) 0) (< c 35))
-  (def [f r] (parse-next s)) (set s r) (++ c)
-  (if (not (nil? f))
-    (let [pr (protect (eval-form ctx @{} f))]
-      (if (not (pr 0))
-        (printf "utils[%d]: %q\n" c (pr 1))))))
-
-# Now inspect the dynamic-var fn in detail
-(def ns (ctx-find-ns ctx "sci.impl.utils"))
-(def dv (ns-find ns "dynamic-var"))
-(def dv-fn (var-get dv))
-
-# Evaluate (dynamic-var 'foo) manually
-(def quoted-foo @[{:jolt/type :symbol :ns nil :name "quote"} {:jolt/type :symbol :ns nil :name "foo"}])
-(def dv-call @[{:jolt/type :symbol :ns nil :name "dynamic-var"} quoted-foo])
-
-(printf "Calling dynamic-var('foo):\n")
-(def r1 (protect (eval-form ctx @{} dv-call)))
-(printf "  result: %q\n" (if (r1 0) "OK" (r1 1)))