From a99e2d007cb5b62fdc80790e63c2c51109fd73ec Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Tue, 4 Mar 2014 11:50:02 +0100 Subject: Replace obsolete `time-to-seconds' with `float-time'. --- chess-test.el | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) (limited to 'chess-test.el') 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)) -- cgit v1.2.3