[flows] Memoize topsort correctly

day8 · Aug 12, 2024 · cf5e836 · cf5e836
1 parent 09e2d71
commit cf5e836
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/re_frame/flow/alpha.cljc b/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)))}))