Skip to content

Commit 1f95b5e

Browse files
committed
need to elide :c.a/analyzed in c.a/analyze-wrap-meta
1 parent aa69dea commit 1f95b5e

File tree

1 file changed

+4
-1
lines changed

1 file changed

+4
-1
lines changed

src/main/clojure/cljs/analyzer.cljc

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3205,9 +3205,12 @@
32053205
(defn elide-reader-meta [m]
32063206
(dissoc m :file :line :column :end-column :end-line :source))
32073207

3208+
(defn elide-analyzer-meta [m]
3209+
(dissoc m ::analyzed))
3210+
32083211
(defn analyze-wrap-meta [expr]
32093212
(let [form (:form expr)
3210-
m (elide-reader-meta (meta form))]
3213+
m (-> (meta form) elide-reader-meta elide-analyzer-meta)]
32113214
(if (some? (seq m))
32123215
(let [env (:env expr) ; take on expr's context ourselves
32133216
expr (assoc-in expr [:env :context] :expr) ; change expr to :expr

0 commit comments

Comments
 (0)