diff options
Diffstat (limited to 'chess-var.el')
| -rw-r--r-- | chess-var.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/chess-var.el b/chess-var.el index c33b243..f5c789a 100644 --- a/chess-var.el +++ b/chess-var.el @@ -59,9 +59,8 @@ progress (nil), if it is drawn, resigned, mate, etc." (changes (chess-ply-changes ply)) (position (chess-ply-pos ply))) (if (chess-ply-final-p current-ply) - (error "Cannot add moves to a completed game")) - (unless (equal position (chess-ply-pos current-ply)) - (error "Positions do not match")) + (chess-error 'add-to-completed)) + (assert (equal position (chess-ply-pos current-ply))) (chess-ply-set-changes current-ply changes) (chess-var-add-ply var (chess-ply-create (chess-ply-next-pos current-ply))))) |