#822: satisfies\?

babashka · Oct 31, 2022 · b0cf270 · b0cf270
1 parent f6c6f9b
commit b0cf270
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/src/sci/impl/namespaces.cljc b/src/sci/impl/namespaces.cljc
@@ -942,7 +942,7 @@
     'protocol-type-impl (new-var 'protocol-type-impl types/type-impl)
     #?@(:clj ['proxy* (new-var 'proxy* proxy/proxy* true)
               'proxy (macrofy 'proxy proxy/proxy clojure-core-ns true)])
-    'satisfies? (copy-core-var sci.impl.protocols/satisfies?)
+    'satisfies? (copy-var sci.impl.protocols/satisfies? clojure-core-ns {:name 'satisfies?})
     ;; end protocols
     ;; IDeref as protocol
     'deref (new-var 'deref core-protocols/deref*)

diff --git a/test/sci/namespaces_test.cljc b/test/sci/namespaces_test.cljc
@@ -309,7 +309,10 @@ bar/bar"}
     (doseq [v '[macroexpand
                 find-ns
                 #?(:clj get-thread-bindings)
-                *print-namespace-maps*
+                satisfies?]]
+      (is (true? (eval* (str/replace "(string? (:doc (meta #'{{v}})))" "{{v}}" (str v)))))))
+  (testing "dynvars"
+    (doseq [v '[*print-namespace-maps*
                 *print-dup*
                 *print-readably*]]
       (is (true? (eval* (str/replace "(string? (:doc (meta #'{{v}})))" "{{v}}" (str v)))))))