summaryrefslogtreecommitdiff
path: root/chess-crafty.el
diff options
context:
space:
mode:
Diffstat (limited to 'chess-crafty.el')
-rw-r--r--chess-crafty.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/chess-crafty.el b/chess-crafty.el
index 25a0b43..644e343 100644
--- a/chess-crafty.el
+++ b/chess-crafty.el
@@ -78,7 +78,8 @@
(chess-var-pos var)
(match-string-no-properties 0))))
(unless ply
- (error "unable to read move '%s'" move))
+ (error "unable to read move '%s'"
+ (match-string-no-properties 0)))
(chess-var-move var ply))))
(skip-chars-forward " "))
var))))))))
@@ -145,10 +146,10 @@
(chess-engine-send nil "easy\n")))
((eq (car args) 'search-depth)
(assert (and (integerp (cadr args)) (>= (cadr args) 0)))
- (chess-engine-send nil (format "sd %d\n") (cadr args)))
+ (chess-engine-send nil (format "sd %d\n" (cadr args))))
((eq (car args) 'search-time)
(assert (and (integerp (cadr args)) (> (cadr args) 0)))
- (chess-engine-send nil (format "st %d\n") (cadr args)))))
+ (chess-engine-send nil (format "st %d\n" (cadr args))))))
(t
(if (and (eq event 'undo)