     (render-next printer x)
     (render-coll frame printer x)))
 
-(defmethod render `s/every [frame _ printer x]
+(defmethod render `s/every [frame printer x]
   (render-every frame printer x))
 
-(defmethod render `s/coll-of [frame _ printer x]
+(defmethod render `s/coll-of [frame printer x]
   (render-every frame printer x))
 
 (defn- render-every-kv [{:keys [steps] :as frame} printer x]

(defn- render-next [printer x]
  (visit/visit (pop-trace printer) x))

(defmethod render `s/spec [frame _ printer x]
  (render-next printer x))

(defmethod render `s/and [frame _ printer x]
  (render-next printer x))

(defmethod render `s/or [frame _ printer x]
  (render-next printer x))

(defmethod render `s/nilable [frame _ printer x]
  (render-next printer x))

(defn- pretty-coll [printer open xs sep close f]

                     (visit/visit (cond-> printer (= i n) pop-trace) x)))]
     (pretty-coll printer open x sep close each-fn))))

(defmethod render `s/tuple [{:keys [steps] :as frame} printer x]
  (if (empty? steps)
    (render-next printer x)
    (render-coll frame printer x)))
