Skip to content

Commit dd3b3bd

Browse files
committed
fix REPL regression which removed warnings
1 parent 80ad20d commit dd3b3bd

File tree

1 file changed

+5
-7
lines changed

1 file changed

+5
-7
lines changed

src/main/clojure/cljs/repl.cljc

Lines changed: 5 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -460,9 +460,8 @@
460460
:gen-col 0
461461
:gen-line 0})]
462462
(let [js (comp/emit-str
463-
(ana/no-warn
464-
(ana/analyze (assoc env :repl-env repl-env :def-emits-var def-emits-var)
465-
(wrap form) nil opts)))
463+
(ana/analyze (assoc env :repl-env repl-env :def-emits-var def-emits-var)
464+
(wrap form) nil opts))
466465
t (System/currentTimeMillis)]
467466
(str js
468467
"\n//# sourceURL=repl-" t ".js"
@@ -480,13 +479,12 @@
480479
(with-out-str (pr form)))]})
481480
"UTF-8")))))
482481
(comp/emit-str
483-
(ana/no-warn
484-
(ana/analyze (assoc env :repl-env repl-env :def-emits-var def-emits-var)
485-
(wrap form) nil opts))))]
482+
(ana/analyze (assoc env :repl-env repl-env :def-emits-var def-emits-var)
483+
(wrap form) nil opts)))]
486484
;; NOTE: means macros which expand to ns aren't supported for now
487485
;; when eval'ing individual forms at the REPL - David
488486
(when (and (sequential? form) (= 'ns (first form)))
489-
(let [ast (ana/analyze env form nil opts)]
487+
(let [ast (ana/no-warn (ana/analyze env form nil opts))]
490488
(load-dependencies repl-env
491489
(into (vals (:requires ast))
492490
(distinct (vals (:uses ast))))

0 commit comments

Comments
 (0)