From e66b028def9af45cc545c973255df42c9b90cde1 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 12 Apr 2002 07:58:22 +0000 Subject: optimizations and bug fixes --- chess-game.el | 8 -------- 1 file changed, 8 deletions(-) (limited to 'chess-game.el') diff --git a/chess-game.el b/chess-game.el index 13f88c6..f81f888 100644 --- a/chess-game.el +++ b/chess-game.el @@ -11,9 +11,6 @@ (require 'chess-ply) -(defvar chess-illegal nil) -(put 'chess-illegal 'error-conditions '(error)) - (defvar chess-game-inhibit-events nil) (defconst chess-game-default-tags @@ -213,11 +210,6 @@ progress (nil), if it is drawn, resigned, mate, etc." (error "Cannot add moves to a completed game")) (unless (equal position (chess-ply-pos current-ply)) (error "Positions do not match")) - (unless (or (chess-ply-has-keyword ply :resign :draw) - (chess-search-position - position (cadr (chess-ply-changes ply)) - (chess-pos-piece position (car (chess-ply-changes ply))))) - (signal 'chess-illegal "Illegal move")) (chess-ply-set-changes current-ply changes) (chess-game-add-ply game (chess-ply-create (chess-ply-next-pos current-ply))) -- cgit v1.2.3