[flows] Memoize topsort correctly

Author: kimo-k

src/re_frame/flow/alpha.cljc

@@ -32,6 +32,8 @@
        reverse
        (map flows)))
 
+(def topsort* (memoize topsort))
+
 (defn default [id]
   {:id id
    :path [id]
@@ -169,6 +171,6 @@
     :after (comp (fn [ctx]
                    (let [all-flows (with-cleared @flows)]
                      (swap! flows vary-meta dissoc ::cleared)
-                     (reduce run ctx ((memoize topsort) all-flows))))
+                     (reduce run ctx (topsort* all-flows))))
                  (fn [{{:keys [db]} :effects :as ctx}]
                    (assoc ctx :re-frame/pre-flow-db db)))}))