Drain app queue first then inject flows

borodust · Apr 12, 2020 · fc65f3f · fc65f3f
1 parent d61aa17
commit fc65f3f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/appkit/appkit.lisp b/appkit/appkit.lisp
@@ -346,12 +346,12 @@
             (setf updated-p nil)
             (>> (sweeping-flow this)
                 (%app-configuration-flow this))))
+        (instantly ()
+          (drain action-queue))
         (->> ()
           (when injected-flows
             (prog1 (nreverse injected-flows)
               (setf injected-flows nil))))
-        (instantly ()
-          (drain action-queue))
         (->> ()
           (acting-flow this)))))