deal with qualified var names

cloxp · May 7, 2015 · 8a7df6d · 8a7df6d
1 parent 0df7865
commit 8a7df6d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/project.clj b/project.clj
@@ -1,4 +1,4 @@
-(defproject org.rksm/cloxp-source-reader "0.1.6"
+(defproject org.rksm/cloxp-source-reader "0.1.7"
   :description "Source reading, parsing, and querying for cloxp."
   :license {:name "MIT License"
             :url "http://opensource.org/licenses/MIT"}
@@ -7,5 +7,5 @@
                  [org.clojure/tools.reader "0.9.1"]
                  [org.clojure/tools.namespace "0.2.8"]
                  [org.clojure/tools.analyzer.jvm "0.6.5"]
-                 [org.rksm/system-files "0.1.5"]
+                 [org.rksm/system-files "0.1.6"]
                  [com.keminglabs/cljx "0.6.0"]])
diff --git a/src/rksm/cloxp_source_reader/core.clj b/src/rksm/cloxp_source_reader/core.clj
@@ -186,11 +186,10 @@
     (sort-by :line (keep (fn [{n :name l :line c :column, :as meta-entity}]
                            (if-let [{:keys [line column end-line end-column source]}
                                     (if n
-                                      (get obj-map n)
+                                      (get obj-map (-> n name symbol))
                                       (->> objs
                                         (filter (fn [{c2 :column, l2 :line}] (and (= c c2) (= l l2))))
                                         first))]
-                             ;   (assoc meta-entity :source source)
                              (assoc meta-entity :source
                                     (get-src-fn
                                      {:line line :column column}