diff --git a/src/babashka/impl/classes.clj b/src/babashka/impl/classes.clj index 47a04a16..59b343be 100644 --- a/src/babashka/impl/classes.clj +++ b/src/babashka/impl/classes.clj @@ -594,7 +594,8 @@ (instance? java.util.Iterator v) java.util.Iterator ;; keep commas for merge friendliness - ,,,)))] + ,,,))) + m (assoc m (list 'quote 'clojure.lang.Var) 'sci.lang.Var)] m)) diff --git a/test/babashka/main_test.clj b/test/babashka/main_test.clj index 661e7db4..3973ea03 100644 --- a/test/babashka/main_test.clj +++ b/test/babashka/main_test.clj @@ -829,6 +829,9 @@ true"))) (testing "for all public vars, ns/symbol from ns map matches metadata" (is (empty? (bb nil (.getPath (io/file "test" "babashka" "scripts" "check_var_names.bb"))))))) +(deftest clojure-lang-var-mapping-test + (is (= :var (bb nil "(defprotocol Foo (foo [_])) (extend-protocol Foo clojure.lang.Var (foo [_] :var)) (foo #'inc)")))) + ;;;; Scratch (comment