Regenerated docs again.

src/dog_and_duck/quack/picky/collections.clj

@@ -45,6 +45,8 @@
     (map #(object-reference-or-faults % nil :must :not-object-reference) (:items x)))))
 
 (defn collection-page-faults
+  "Return a list of faults found in `x` considered as a collection page
+   object of this sub-`type`, or `nil` if none are found."
   [x type]
   (concat-non-empty
    (simple-collection-faults x type)

src/dog_and_duck/scratch/scratch.clj

@@ -44,11 +44,11 @@
 ;; ;;; examine what you got back!
 (:inbox account)
 
-(-> account
-    :inbox
-    slurp
-    json/read-str
-    pprint) ;; => 80
+;; (-> account
+;;     :inbox
+;;     slurp
+;;     json/read-str
+;;     pprint) ;; => 80
 
 ;; (def rsa (pgp-gen/rsa-keypair-generator 2048))
 ;; (def kp (pgp-gen/generate-keypair rsa :rsa-general))