File tree Expand file tree Collapse file tree 1 file changed +5
-7
lines changed Expand file tree Collapse file tree 1 file changed +5
-7
lines changed Original file line number Diff line number Diff line change 460
460
:gen-col 0
461
461
:gen-line 0 })]
462
462
(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))
466
465
t (System/currentTimeMillis )]
467
466
(str js
468
467
" \n //# sourceURL=repl-" t " .js"
480
479
(with-out-str (pr form)))]})
481
480
" UTF-8" )))))
482
481
(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)))]
486
484
; ; NOTE: means macros which expand to ns aren't supported for now
487
485
; ; when eval'ing individual forms at the REPL - David
488
486
(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) )]
490
488
(load-dependencies repl-env
491
489
(into (vals (:requires ast))
492
490
(distinct (vals (:uses ast))))
You can’t perform that action at this time.
0 commit comments