diff options
Diffstat (limited to 'chess-epd.el')
| -rw-r--r-- | chess-epd.el | 8 |
1 files changed, 5 insertions, 3 deletions
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)))) |