Add print-simple

Author: borkdude

src/sci/impl/io.cljc

@@ -2,7 +2,8 @@
   {:no-doc true}
   (:refer-clojure :exclude [pr prn pr-str prn-str print print-str println
                             newline flush with-out-str with-in-str read-line
-                            printf #?@(:cljs [string-print])])
+                            printf #?@(:cljs [string-print])
+                            #?@(:clj [print-simple])])
   (:require
    #?(:cljs [goog.string])
    [sci.impl.copy-vars :refer [copy-var]]
@@ -272,3 +273,10 @@
      (if (instance? clojure.lang.LineNumberingPushbackReader @in)
        (.readLine ^clojure.lang.LineNumberingPushbackReader @in)
        (.readLine ^java.io.BufferedReader @in))))
+
+#?(:clj
+   (defn print-simple [o w]
+     (binding [*print-dup* @print-dup
+               *print-meta* @print-meta
+               *print-readably* @print-readably]
+       (clojure.core/print-simple o w))))

src/sci/impl/namespaces.cljc

@@ -1149,6 +1149,7 @@
      #?@(:clj ['print-method (copy-core-var print-method)])
      #?@(:clj ['print-dup (copy-core-var print-dup)])
      #?@(:clj ['printf (copy-core-var sci.impl.io/printf)])
+     #?@(:clj ['print-simple (copy-core-var sci.impl.io/print-simple)])
      'with-out-str (macrofy 'with-out-str sci.impl.io/with-out-str)
      #?@(:clj ['with-in-str (macrofy 'with-in-str sci.impl.io/with-in-str)
                'read-line (copy-core-var sci.impl.io/read-line)])