 
 ;; === String Output functions
 
-(def tree->string #'so/tree->string)
-
-(defn get-trees
+(def- tree->string #'so/tree->string)
+
+(defn- get-trees
   [v]
   (let [mk (meta v)]
     (cond


(util/defalias-macro w-adtf! ws-add-deep-trace-fn!)

(defn ws-add-trace-ns!*
  "`ns-sym` is a symbol that references an existing namespace. Applies an enabled
  trace to all functions in that namespace. Adds the traces to the active workspace trace set."
  [ns-sym]

                       @recording)))
(util/defalias r-pr rec-print)

(defn- mk-printer-*-list
  [opts init-prn whitelist?]
  (loop [prn init-prn
         opts' opts]
