From 1d120c9541612bd7111d8c18fe90e7c9666d1f98 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 1 May 2002 00:07:30 +0000 Subject: Tiny code rearrangement. --- chess-game.el | 10 +++++----- 1 file 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) -- cgit v1.2.3