File tree Expand file tree Collapse file tree 1 file changed +17
-7
lines changed Expand file tree Collapse file tree 1 file changed +17
-7
lines changed Original file line number Diff line number Diff line change 317
317
318
318
(defn source-info
319
319
([env]
320
- (when-let [line (:line env)]
321
- {:file *cljs-file*
322
- :line (get-line name env)
323
- :column (get-col name env)}))
324
- ([name env]
325
- {:file *cljs-file*
320
+ (when-let [line (:line env)]
321
+ {:file (if (= (-> env :ns :name ) 'cljs.core)
322
+ " cljs/core.cljs"
323
+ *cljs-file*)
326
324
:line (get-line name env)
327
325
:column (get-col name env)}))
326
+ ([name env]
327
+ {:file (if (= (-> env :ns :name ) 'cljs.core)
328
+ " cljs/core.cljs"
329
+ *cljs-file*)
330
+ :line (get-line name env)
331
+ :column (get-col name env)}))
328
332
329
333
(defn message [env s]
330
334
(str s (when (:line env)
793
797
; ; elide test metadata, as it includes non-valid EDN - David
794
798
(cond-> sym-meta
795
799
:test (-> (dissoc :test ) (assoc :test true )))
796
- {:meta (dissoc sym-meta :test )}
800
+ {:meta (-> sym-meta
801
+ (dissoc :test )
802
+ (update-in [:file ]
803
+ (fn [f]
804
+ (if (= (-> env :ns :name ) 'cljs.core)
805
+ " cljs/core.cljs"
806
+ f))))}
797
807
(when doc {:doc doc})
798
808
(when dynamic {:dynamic true })
799
809
(source-info var-name env)
You can’t perform that action at this time.
0 commit comments