📎 Add helpers for instrumenting vars

2025-03-18 02:32:13 -05:00 · 2023-02-02 10:58:51 +01:00 · 2023-02-02 10:58:51 +01:00 · b54bf2bba4
commit b54bf2bba4
parent 32b8a2c243
1 changed files with 20 additions and 0 deletions
--- a/backend/src/app/srepl/main.clj
+++ b/backend/src/app/srepl/main.clj
@ -144,3 +144,23 @@
  [system & {:as params}]
  (enable-objects-map-feature-on-file! system params)
  (enable-pointer-map-feature-on-file! system params))
+
+(defn instrument-var
+  [var]
+  (alter-var-root var (fn [f]
+                        (let [mf (meta f)]
+                          (if (::original mf)
+                            f
+                            (with-meta
+                              (fn [& params]
+                                (tap> params)
+                                (let [result (apply f params)]
+                                  (tap> result)
+                                  result))
+                              {::original f}))))))
+
+(defn uninstrument-var
+  [var]
+  (alter-var-root var (fn [f]
+                        (or (::original (meta f)) f))))
+