Commit 67b2b6b6 authored by Daniel Kochmański's avatar Daniel Kochmański

generic-bench: work on floats

parent 47ae7908
......@@ -179,8 +179,8 @@
(setq after-user (get-internal-run-time))
(setq after-real (get-internal-real-time))
;; return real user sys consed
(values (/ (- after-real before-real) internal-time-units-per-second)
(/ (- after-user before-user) internal-time-units-per-second)
(values (coerce (/ (- after-real before-real) internal-time-units-per-second) 'float)
(coerce (/ (- after-user before-user) internal-time-units-per-second) 'float)
0 0)))
(eval-when (:load-toplevel :execute)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment