 
         :else (render-coll frame printer x)))
 
-(defmethod render `s/cat [frame _ printer x]
-  (render-regex frame printer x))
-
-(defmethod render `s/& [frame _ printer x]
-  (render-regex frame printer x))
-
-(defmethod render `s/alt [frame _ printer x]
-  (render-regex frame printer x))
-
-(defmethod render `s/? [frame _ printer x]
-  (render-regex frame printer x))
-
-(defmethod render `s/* [frame _ printer x]
-  (render-regex frame printer x))
-
-(defmethod render `s/+ [frame _ printer x]
-  (render-regex frame printer x))
-
-(defmethod render `s/multi-spec [frame _ printer x]
+(defmethod render `s/cat [frame printer x]
+  (render-regex frame printer x))
+
+(defmethod render `s/& [frame printer x]
+  (render-regex frame printer x))
+
+(defmethod render `s/alt [frame printer x]
+  (render-regex frame printer x))
+
+(defmethod render `s/? [frame printer x]
+  (render-regex frame printer x))
+
+(defmethod render `s/* [frame printer x]
+  (render-regex frame printer x))
+
+(defmethod render `s/+ [frame printer x]
+  (render-regex frame printer x))
+
+(defmethod render `s/multi-spec [frame printer x]
   (if (= (:reason frame) "no method")
     (highlight (visit/visit (:base-printer printer) x))
     (render-next printer x)))
 
-(defmethod render `s/nonconforming [frame _ printer x]
-  (render-next printer x))
+(defmethod render `s/nonconforming [frame printer x]
+  (render-next printer x))

                     (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)))

    (render-next printer x)
    (render-coll frame printer x)))

(defmethod render `s/every [frame printer x]
  (render-every 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]
