From 7e960384fa89c02c2fc2be1f61fe18645f8a13fe Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sat, 13 Apr 2002 11:13:33 +0000 Subject: added message catalog support --- chess-var.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'chess-var.el') 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))))) -- cgit v1.2.3