CLJS: *print-err-fn*

Author: borkdude

src/sci/impl/io.cljc

@@ -49,7 +49,12 @@
        (doto (core-dynamic-var '*print-fn*)
          (vars/unbind)))))
 
-;; TODO: CLJS print-err-fn
+#?(:cljs
+   (def print-err-fn
+     (binding [*unrestricted* true]
+       (doto (core-dynamic-var '*print-err-fn*)
+         (vars/unbind)))))
+
 ;; TODO: CLJS print-fn-bodies
 
 (def print-meta

src/sci/impl/namespaces.cljc

@@ -846,7 +846,8 @@
    '*err* io/err
    '*file* vars/current-file
    '*flush-on-newline* io/flush-on-newline
-   #?@(:cljs ['*print-fn* io/print-fn])
+   #?@(:cljs ['*print-fn* io/print-fn
+              '*print-err-fn* io/print-err-fn])
    '*print-length* io/print-length
    '*print-level* io/print-level
    '*print-meta* io/print-meta