atoms.lisp: Call `player-turn-begin' from the main loop.

[atoms] / atoms.lisp

diff --git a/atoms.lisp b/atoms.lisp
index 60c6470..915c53e 100644 (file)
--- a/atoms.lisp
+++ b/atoms.lisp
@@ -312,7 +312,7 @@
        (when (member (player-state player) '(:starting :playing))
          (setf (game-player-index game) j
                (player-state player) :ready)
-         (player-turn-begin game player)
+         (glib:idle-add (lambda () (player-turn-begin game player) nil))
          (changed game :start-turn :player player)
          (return))))))
 
@@ -386,7 +386,8 @@
       (setf (player-score player) 0
            (player-state player) (if (zerop i) :ready :starting))))
   (setf (game-player-index game) 0)
-  (changed game :refresh))
+  (changed game :refresh)
+  (glib:idle-add (lambda () (player-turn-begin game (aref players 0)) nil)))
 
 ;;;--------------------------------------------------------------------------
 ;;; Snapshots and undo.