     (go-loop []
       (when-let [morph (<! morph-ch)]
         (om-next/update-state! this update :morphs conj morph)
-        ;; This gives the browser a chance to draw what we've got before
-        ;; calculating more morphs.
-        (<! (async/timeout 1))
         (recur)))))
 
 (defui ^:once ^:private MorphDisplay

        (.render renderer elt)
        (.getRenderOutput renderer)))))

(defn generate
  "Generates signature, morph pairs for component-factory-var (using optional
  generator overrides) and puts them onto ch."

         spec (:args (s/get-spec component-factory-var))
         samples (take sample-size (gen/sample-seq (s/gen spec overrides)))
         signature-of-sample (comp signature (partial apply shallow-render (deref component-factory-var)))
         samples-ch (chan)
         morphs-ch (chan 1 (comp
                            (map (juxt signature-of-sample identity))
                            (distinct-by first)))]
     (async/onto-chan samples-ch samples)
     (friendly-pipe samples-ch morphs-ch)
     (async/pipe morphs-ch ch))))


