In queue-for-event-process, never funcall the thunk immediately.

Always queue an event so that the execution of the thunk is deferred until the next iteration of the event loop.
kyanha · Jul 9, 2015 · e11ccda · e11ccda
1 parent bdef55e
commit e11ccda
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/mac-ui/event-process.lisp b/mac-ui/event-process.lisp
@@ -10,9 +10,7 @@
 (defun queue-for-event-process (f)
   "Queue the zero-argument function F for asynchronous execution in
 the event process."
-  (if (eq *current-process* *initial-process*)
-    (funcall f)
-    (%interrupt-event-process f nil)))
+    (%interrupt-event-process f nil))
 
 (defun call-in-event-process (f)
   "Invoke the zero-argument function F in the event process, wait for