Fix #1397: clojure.lang.Namespace

CHANGELOG.md

@@ -10,6 +10,7 @@ A preview of the next release can be installed from
 - Add single argument read method support to PipedInputStream proxy ([@retrogradeorbit](https://github.com/retrogradeorbit))
 - feat: Honor `*print-namespace-maps*` in pprint ([@ghoseb](https://github.com/ghoseb))
 - [#1369](https://github.com/babashka/babashka/issues/1369): provide `.sha256` files for every released asset
+- [#1397](https://github.com/babashka/babashka/issues/1397): Add `clojure.lang.Namespace` as alias for `sci.lang.Namespace`, such that `(instance? clojure.lang.Namespace *ns*)` returns `true` in bb
 
 ## 0.10.163 (2022-09-24)
 

src/babashka/impl/classes.clj

@@ -626,7 +626,8 @@
                          java.util.Iterator
                          ;; keep commas for merge friendliness
                          ,,,)))
-        m (assoc m (list 'quote 'clojure.lang.Var) 'sci.lang.Var)]
+        m (assoc m (list 'quote 'clojure.lang.Var) 'sci.lang.Var)
+        m (assoc m (list 'quote 'clojure.lang.Namespace) 'sci.lang.Namespace)]
     m))
 
 

test/babashka/main_test.clj

@@ -837,6 +837,9 @@ true")))
 (deftest clojure-lang-var-mapping-test
   (is (= :var (bb nil "(defprotocol Foo (foo [_])) (extend-protocol Foo clojure.lang.Var (foo [_] :var)) (foo #'inc)"))))
 
+(deftest clojure-ns-test
+  (is (true? (bb nil "(instance? clojure.lang.Namespace *ns*)"))))
+
 ;;;; Scratch
 
 (comment