From b6f19b03dcbd502bde734e1d040f65ab5ae271ec Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Tue, 18 Oct 2022 17:27:17 +0200 Subject: [PATCH] Fix #1397: clojure.lang.Namespace --- CHANGELOG.md | 1 + src/babashka/impl/classes.clj | 3 ++- test/babashka/main_test.clj | 3 +++ 3 files changed, 6 insertions(+), 1 deletion(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index f1ba157b..ac0a0eae 100644 --- a/CHANGELOG.md +++ b/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) diff --git a/src/babashka/impl/classes.clj b/src/babashka/impl/classes.clj index 5a2c669d..f245e635 100644 --- a/src/babashka/impl/classes.clj +++ b/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)) diff --git a/test/babashka/main_test.clj b/test/babashka/main_test.clj index e645c82b..b3914c3e 100644 --- a/test/babashka/main_test.clj +++ b/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