From 8b186795676c8f7e107e1879d3d46907fdf9db2c Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 16 Apr 2002 22:12:03 +0000 Subject: Fixed pos status not being updated. --- chess-pos.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'chess-pos.el') diff --git a/chess-pos.el b/chess-pos.el index ae12a93..384a028 100644 --- a/chess-pos.el +++ b/chess-pos.el @@ -139,7 +139,9 @@ Also, EPD evaluation numbers/strings can be set here." (defsubst chess-pos-set-status (position &rest values) "Set whether the side to move is in a special state." - (aset position 69 values)) + (if (equal '(nil) value) + (aset position 69 nil) + (aset position 69 values))) (defsubst chess-pos-side-to-move (position) "Return the color whose move it is in POSITION." @@ -321,6 +323,7 @@ trying to move a blank square." (downcase new-piece))))) ;; did we leave the position in check, mate or stalemate? + (chess-pos-set-status position nil)) (cond ((memq :check changes) (chess-pos-set-status position :check)) -- cgit v1.2.3