Browse files

use line and column from symbol meta if present in analyze-symbol

  • Loading branch information...
swannodette committed Nov 13, 2013
1 parent 3d85936 commit b3db8e74556eb4bf5383532613741b84555fff09
Showing with 5 additions and 1 deletion.
  1. +5 −1 src/clj/cljs/analyzer.clj
@@ -1087,7 +1087,11 @@
[env sym]
(if (:quoted? env)
{:op :constant :env env :form sym}
- (let [ret {:env env :form sym}
+ (let [{:keys [line column]} (meta sym)
+ env (cond-> env
+ line (assoc :line line)
+ column (assoc :column column))
+ ret {:env env :form sym}
lb (-> env :locals sym)]
(if lb
(assoc ret :op :var :info lb)

0 comments on commit b3db8e7

Please sign in to comment.