exclude private vars from ns-map

Author: borkdude

src/sci/impl/namespaces.cljc

@@ -514,7 +514,11 @@
         env @(:env ctx)
         refers (get-in env [:namespaces name :refers])
         clojure-core (get-in env [:namespaces 'clojure.core])
-        clojure-core (clean-ns clojure-core)]
+        clojure-core (clean-ns clojure-core)
+        clojure-core (into {} (remove (fn [[_ v]]
+                                        (and (utils/var? v)
+                                             (:private (meta v)))))
+                            clojure-core)]
     (merge clojure-core refers)))
 
 (defn sci-ns-refers [sci-ns]

test/sci/namespaces_test.cljc

@@ -175,7 +175,9 @@
 (deftest ns-refers-test
   (is (eval* "(some? (get (ns-refers *ns*) 'inc))"))
   (is (eval* "(def x 1) (nil? (get (ns-refers *ns*) 'x))"))
-  (is (eval* "(require '[clojure.string :refer [includes?]]) (some? (get (ns-refers *ns*) 'includes?))")))
+  (is (eval* "(require '[clojure.string :refer [includes?]]) (some? (get (ns-refers *ns*) 'includes?))"))
+  (testing "private vars are not referred"
+    (is (eval* "(every? (fn [[_ v]] (not (:private (meta v)))) (ns-refers *ns*))"))))
 
 (deftest ns-map-test
   (is (eval* "(some? (get (ns-map *ns*) 'inc))"))