diff options
| author | John Wiegley <johnw@newartisans.com> | 2004-02-08 23:52:18 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2004-02-08 23:52:18 +0000 |
| commit | 7b11cf3a656f2f54d8035827322a3f74648e0266 (patch) | |
| tree | 139b97e99a8c6ebdbdc97cb180a85bd217febd99 | |
| parent | 64baf848b2e6852b5f94baf17141735ca0e8f4c8 (diff) | |
Corrected some invalid calls to `format'.
| -rw-r--r-- | chess-crafty.el | 7 |
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) |