agenda: Always set sec/usec to exact time.
authorChristopher Allan Webber <cwebber@dustycloud.org>
Mon, 30 Jan 2017 05:08:22 +0000 (23:08 -0600)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Mon, 30 Jan 2017 05:08:22 +0000 (23:08 -0600)
* 8sync/agenda.scm (delayed-time): Always set sec/usec to exact time.

8sync/agenda.scm

index 828153033840ce180a8914c3fecdda42139d440d..e91487eda3aa52cbef2513eaa57ff91e094e89b1 100644 (file)
@@ -411,7 +411,8 @@ forge ahead in our current function!"
     ;; convert into sec / usec pair
     (receive (secs usecs)
         (floor/ next-time-in-usecs 1000000)
-      (cons secs (floor usecs))))
+      (cons (inexact->exact secs)
+            (inexact->exact (floor usecs)))))
   (define (convert-integer)
     (cons (+ in-secs cur-secs) cur-usecs))
   (if (integer? in-secs)