diff options
| author | Chouser <chouser@n01se.net> | 2009-01-21 05:36:15 +0000 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-01-21 05:36:15 +0000 |
| commit | 348519cd1a9d37c45d429943510a41043edecbde (patch) | |
| tree | 14915e98431668898b38264eb8053a1bad8bc0c4 /src | |
| parent | 91b6ba3539a035627d6a416635990773f939d09d (diff) | |
repl-utils/source: fix for package names that include dashes.
Diffstat (limited to 'src')
| -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))] |