diff options
| -rw-r--r-- | src/clj/clojure/core.clj | 2 | ||||
| -rw-r--r-- | test/clojure/test_clojure/ns_libs.clj | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index f5e18bb6..1612e9ec 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -3714,7 +3714,7 @@ {:added "1.0" :static true} [alias namespace-sym] - (.addAlias *ns* alias (find-ns namespace-sym))) + (.addAlias *ns* alias (the-ns namespace-sym))) (defn ns-aliases "Returns a map of the aliases for the namespace." diff --git a/test/clojure/test_clojure/ns_libs.clj b/test/clojure/test_clojure/ns_libs.clj index 37afacb3..ab42f7f8 100644 --- a/test/clojure/test_clojure/ns_libs.clj +++ b/test/clojure/test_clojure/ns_libs.clj @@ -26,6 +26,9 @@ ; require use ; loaded-libs +(deftest test-alias + (is (thrown-with-msg? Exception #"No namespace: epicfail found" (alias 'bogus 'epicfail)))) + (deftest test-require (is (thrown? Exception (require :foo))) (is (thrown? Exception (require)))) |