diff options
| author | Mario Lang <mlang@delysid.org> | 2014-03-04 11:50:02 +0100 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2014-03-04 11:50:02 +0100 |
| commit | a99e2d007cb5b62fdc80790e63c2c51109fd73ec (patch) | |
| tree | e6d2d8e86272bc03810fed2ac2b65d1d73a77c05 | |
| parent | 29f2f3278c0a1c84bdb681822d3f949d8c259791 (diff) | |
Replace obsolete `time-to-seconds' with `float-time'.
| -rw-r--r-- | chess-test.el | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/chess-test.el b/chess-test.el index 48c683f..cdbf335 100644 --- a/chess-test.el +++ b/chess-test.el @@ -51,10 +51,9 @@ (message "Read %d games (next %d): %d total plies (%.2f ply/sec)" read-count (1+ index) ply-count (/ (float ply-count) - (float - (time-to-seconds - (subtract-time (current-time) - begin)))))))) + (float-time + (subtract-time (current-time) + begin))))))) (error (setq error-occurred t) (message "Error reading game %d: %s" @@ -63,12 +62,8 @@ (message "Read %d games (last %d): %d plies (%.2f ply/sec, %.2f seconds)" read-count (1- index) ply-count (/ (float ply-count) - (float - (time-to-seconds - (subtract-time (current-time) - begin)))) - (time-to-seconds (subtract-time (current-time) - begin))) + (float-time (subtract-time (current-time) begin))) + (float-time (subtract-time (current-time) begin))) (message "Running validation suite...done") (chess-database-close database))) (error "Failed to open chess database '%s'" file)) |