#822: push-thread-bindings

babashka · Oct 31, 2022 · 7f8da5d · 7f8da5d
1 parent 950e561
commit 7f8da5d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/src/sci/impl/namespaces.cljc b/src/sci/impl/namespaces.cljc
@@ -1274,7 +1274,7 @@
     'partition-by (copy-core-var partition-by)
     'persistent! (copy-core-var persistent!)
     #?@(:clj ['promise (copy-core-var promise)])
-    'push-thread-bindings (copy-core-var sci.impl.vars/push-thread-bindings)
+    'push-thread-bindings (copy-var sci.impl.vars/push-thread-bindings clojure-core-ns {:name 'push-thread-bindings})
     'qualified-ident? (copy-core-var qualified-ident?)
     'qualified-symbol? (copy-core-var qualified-symbol?)
     'qualified-keyword? (copy-core-var qualified-keyword?)

diff --git a/test/sci/namespaces_test.cljc b/test/sci/namespaces_test.cljc
@@ -311,17 +311,18 @@ bar/bar"}
                 #?(:clj get-thread-bindings)
                 satisfies?
                 ns-unmap]]
-      (is (true? (eval* (str/replace "(string? (:doc (meta #'{{v}})))" "{{v}}" (str v)))))))
+      (is (true? (eval* (str/replace "(string? (:doc (meta #'{{v}})))" "{{v}}" (str v)))) v)))
   (testing "dynvars"
     (doseq [v '[*print-namespace-maps*
                 *print-dup*
                 *print-readably*]]
-      (is (true? (eval* (str/replace "(string? (:doc (meta #'{{v}})))" "{{v}}" (str v)))))))
+      (is (true? (eval* (str/replace "(string? (:doc (meta #'{{v}})))" "{{v}}" (str v)))) v)))
   (testing "regular vars"
     (doseq [v '[inc
                 newline
-                pr]]
-      (is (true? (eval* (str/replace "(string? (:doc (meta #'{{v}})))" "{{v}}" (str v))))))))
+                pr
+                #?(:clj push-thread-bindings)]]
+      (is (true? (eval* (str/replace "(string? (:doc (meta #'{{v}})))" "{{v}}" (str v)))) v))))
 
 #?(:cljs
     (deftest test-munge-demunge