From c2bca7468a435177c314769b823d0dacf6817e74 Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Mon, 19 Jan 2004 16:50:32 +0000 Subject: minor change --- chess-epd.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'chess-epd.el') diff --git a/chess-epd.el b/chess-epd.el index f688ce8..5016117 100644 --- a/chess-epd.el +++ b/chess-epd.el @@ -121,9 +121,11 @@ and advance point after the correctly parsed position." ((or (eq opcode 'pv) (eq opcode 'sv)) ; predicted/supplied variation (let ((var (chess-var-create pos))) (mapc (lambda (ply) - (chess-var-move var - (chess-ply-from-string - (chess-var-pos var) ply))) + (let ((changes (chess-ply-from-string + (chess-var-pos var) ply))) + (if changes + (chess-var-move var changes) + (error "Unable to convert ply '%s'" ply)))) (split-string val " ")) var)) (t val)))) -- cgit v1.2.3