diff options
| -rw-r--r-- | chess-game.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/chess-game.el b/chess-game.el index 586f656..f8e1101 100644 --- a/chess-game.el +++ b/chess-game.el @@ -288,16 +288,16 @@ progress (nil), if it is drawn, resigned, mate, etc." (assert game) (assert (listp ply)) (let ((current-ply (chess-game-ply game)) - (changes (chess-ply-changes ply)) - (position (chess-ply-pos ply))) - - (if (chess-ply-final-p current-ply) - (chess-error 'add-to-completed)) + (position (chess-ply-pos ply)) + (changes (chess-ply-changes ply))) (assert current-ply) (assert (and position (eq position (chess-ply-pos current-ply)))) (assert changes) + (if (chess-ply-final-p current-ply) + (chess-error 'add-to-completed)) + (chess-ply-set-changes current-ply changes) (unless (chess-ply-any-keyword ply :drawn :perpetual :repetition :resign :aborted :flag-fell) |