From fc65f3f8f646bf84e0b1e7a03cd03656888f211d Mon Sep 17 00:00:00 2001 From: Pavel Korolev Date: Sun, 12 Apr 2020 21:50:40 +0300 Subject: [PATCH] Drain app queue first then inject flows --- appkit/appkit.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/appkit/appkit.lisp b/appkit/appkit.lisp index d9ecc48..31855fa 100644 --- 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)))))