                       (unify-and-log a b model))
                     tree-parts)))
 
+     ;; 8. Remove fails again. (TODO: consider whether this can be removed)
      (remove #(= :fail %))
 
      ;; 9. Apply model's defaults, if any, to each tree.

        max-depth (or max-depth max-total-depth)]
    (log/debug (str "generate-all:" depth "/" max-depth ":" (spec-info spec)))
    (->>
     (lightning-bolts model spec depth max-depth)

     ;; 2. debug logging.

                         (assoc-in {} path trellis))
                       (zipmap paths trellis)))))

     ;; 6. Remove fails. (TODO: consider whether this can be removed)
     (remove (fn [tree-parts]
               (some #(= :fail %) tree-parts)))

