File tree Expand file tree Collapse file tree 3 files changed +8
-8
lines changed Expand file tree Collapse file tree 3 files changed +8
-8
lines changed Original file line number Diff line number Diff line change 186
186
" Set *print-fn* to console.log"
187
187
[]
188
188
(set! *print-newline* false )
189
- (set! * print-fn*
189
+ (set- print-fn!
190
190
(fn [& args]
191
191
(.apply (.-log js/console) js/console (into-array args))))
192
- (set! * print-err-fn*
192
+ (set- print-err-fn!
193
193
(fn [& args]
194
194
(.apply (.-error js/console) js/console (into-array args))))
195
195
nil )
@@ -11498,10 +11498,10 @@ reduces them without incurring seq initialization"
11498
11498
(identical? *target* " nashorn" )
11499
11499
(let [system (.type js/Java " java.lang.System" )]
11500
11500
(set! *print-newline* false )
11501
- (set! * print-fn*
11501
+ (set- print-fn!
11502
11502
(fn [& args]
11503
11503
(.println (.-out system) (.join (into-array args) " " ))))
11504
- (set! * print-err-fn*
11504
+ (set- print-err-fn!
11505
11505
(fn [& args]
11506
11506
(.println (.-error system) (.join (into-array args) " " )))))))
11507
11507
Original file line number Diff line number Diff line change 18
18
19
19
(defn enable-util-print! []
20
20
(set! *print-newline* false )
21
- (set! * print-fn*
21
+ (set- print-fn!
22
22
(fn [& args]
23
23
(.apply (.-log js/console) js/console (into-array args))))
24
- (set! * print-err-fn*
24
+ (set- print-err-fn!
25
25
(fn [& args]
26
26
(.apply (.-error js/console) js/console (into-array args))))
27
27
nil )
Original file line number Diff line number Diff line change 43
43
(when-let [conn @xpc-connection]
44
44
(flush-print-queue! conn)))
45
45
46
- (set! *print-fn* repl-print)
47
- (set! *print-err-fn* repl-print)
48
46
(set! *print-newline* true )
47
+ (set-print-fn! repl-print)
48
+ (set-print-err-fn! repl-print)
49
49
50
50
(defn get-ua-product []
51
51
(cond
You can’t perform that action at this time.
0 commit comments