From: Christopher Allan Webber Date: Mon, 30 Jan 2017 05:08:22 +0000 (-0600) Subject: agenda: Always set sec/usec to exact time. X-Git-Tag: v0.4.2~6 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=48dffb1698035eb3e0eed696e2c296e26412b7d7;p=8sync.git agenda: Always set sec/usec to exact time. * 8sync/agenda.scm (delayed-time): Always set sec/usec to exact time. --- diff --git a/8sync/agenda.scm b/8sync/agenda.scm index 8281530..e91487e 100644 --- a/8sync/agenda.scm +++ b/8sync/agenda.scm @@ -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)