     (wrap visit/visit-record this x))
   )
 
-(defmethod render `s/tuple [{[n] :steps} _ printer x]
-  (pretty-coll printer "[" x :line "]"
-    (fn [printer i x]
-      (visit/visit (cond-> printer (= i n) pop-trace) x))))
-
-(defmethod render `s/map-of [{[key k-or-v] :steps} _ printer x]
-  (pretty-coll printer "{" x [:span "," :line] "}"
-    (fn [printer i [k v]]
-      (let [kprinter (cond-> printer
-                       (and (= k key) (= k-or-v 0))
-                       pop-trace)
-            vprinter (cond-> printer
-                       (and (= k key) (= k-or-v 1))
-                       pop-trace)]
-        [:span (visit/visit kprinter k) " " (visit/visit vprinter v)]))))
-
 (defn highlight-printer [trace]
   (let [base-printer (edn/map->EdnPrinter {:symbols {}})]
     (->HighlightPrinter base-printer trace)))

(defn pr-str [x]
  (with-out-str
    (pr x)))


(defn pop-trace [printer]
  (update printer :trace rest))

(defrecord HighlightPrinter [base-printer trace]
  visit/IVisitor
