diff options
| author | John Wiegley <johnw@newartisans.com> | 2008-09-02 05:08:52 -0400 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2008-09-02 05:08:52 -0400 |
| commit | a908813e68b1bbf27ecacd93518c81c4345e4918 (patch) | |
| tree | 1b8358b06522a86d1216a4ba93701dee031a9d7e | |
| parent | 35fed4dba77f64b0177b809b872c514f10cf64b5 (diff) | |
Corrected game indices in the debug output.
| -rw-r--r-- | chess-test.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/chess-test.el b/chess-test.el index 77fbc6d..ec5f4a6 100644 --- a/chess-test.el +++ b/chess-test.el @@ -47,8 +47,8 @@ ply-count (+ ply-count (length (chess-game-plies game)))) (if (and (> read-count 0) (= 0 (mod read-count 1000))) - (message "Read %d games (now at game %d): %d total plies (%.2f ply/sec)" - read-count index ply-count + (message "Read %d games (next is game %d): %d total plies (%.2f ply/sec)" + read-count (1+ index) ply-count (/ (float ply-count) (float (time-to-seconds @@ -59,7 +59,7 @@ (message "Error reading game %d: %s" index (error-message-string err)))) (setq index (1+ index))) - (message "Read %d games (up to game %d): %d plies (%.2f ply/sec, %.2f seconds)" + (message "Read %d games (last game was %d): %d plies (%.2f ply/sec, %.2f seconds)" read-count (1- index) ply-count (/ (float ply-count) (float |