diff options
| author | Christopher Allan Webber <cwebber@dustycloud.org> | 2017-01-29 23:08:22 -0600 |
|---|---|---|
| committer | Christopher Allan Webber <cwebber@dustycloud.org> | 2017-01-29 23:08:22 -0600 |
| commit | 48dffb1698035eb3e0eed696e2c296e26412b7d7 (patch) | |
| tree | 56b87595156a0b1de5091e1977f578de800d836a | |
| parent | cef6072905deb71f3f2277dda21a78595d295901 (diff) | |
| download | 8sync-48dffb1698035eb3e0eed696e2c296e26412b7d7.tar.gz | |
agenda: Always set sec/usec to exact time.
* 8sync/agenda.scm (delayed-time): Always set sec/usec to exact time.
| -rw-r--r-- | 8sync/agenda.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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) |