diff options
Diffstat (limited to 'src/clojure/contrib/repl_utils.clj')
| -rw-r--r-- | src/clojure/contrib/repl_utils.clj | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/clojure/contrib/repl_utils.clj b/src/clojure/contrib/repl_utils.clj index 5da445cd..f1107d52 100644 --- a/src/clojure/contrib/repl_utils.clj +++ b/src/clojure/contrib/repl_utils.clj @@ -94,8 +94,11 @@ Example: (get-source 'filter)" [x] (when-let [v (resolve x)] - (let [ns-name (str (.name (.ns v))) - path (first (re-seq #"^.*(?=/[^/]*$)" (.replace ns-name "." "/"))) + (let [ns-str (str (ns-name (:ns ^v))) + path (first (re-seq #"^.*(?=/[^/]*$)" + (-> ns-str + (.replace "." "/") + (.replace "-" "_")))) fname (str path "/" (:file ^v))] (when-let [strm (.getResourceAsStream (RT/baseLoader) fname)] (with-open [rdr (LineNumberReader. (InputStreamReader. strm))] |