Permalink
Browse files

Add some :line data

  • Loading branch information...
1 parent f04fea2 commit 37ee5d8799579f16ae6c9975200740e879058c00 @frenchy64 committed Jul 27, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/analyze/core.clj
View
@@ -272,7 +272,8 @@
(let [args (map analysis->map (.args expr) (repeat env))]
(merge
{:op :new
- :env env
+ :env (assoc env
+ :line (.line expr))
:ctor (when-let [ctor (.ctor expr)]
(@#'reflect/constructor->map ctor))
:class (.c expr)

0 comments on commit 37ee5d8

Please sign in to comment.