diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-12 07:58:22 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-12 07:58:22 +0000 |
| commit | e66b028def9af45cc545c973255df42c9b90cde1 (patch) | |
| tree | b4d7bf33b4aabfee075ff211e3da12456fbeaf70 /chess-game.el | |
| parent | cdba8a5aed3bd66e62f348a7064acece342bb68e (diff) | |
optimizations and bug fixes
Diffstat (limited to 'chess-game.el')
| -rw-r--r-- | chess-game.el | 8 |
1 files changed, 0 insertions, 8 deletions
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))) |