~mdw
/
atoms
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
(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))))))
(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)
(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.
;;;--------------------------------------------------------------------------
;;; Snapshots and undo.