* 8sync/agenda.scm (delayed-time): Always set sec/usec to exact time.
;; convert into sec / usec pair
(receive (secs usecs)
(floor/ next-time-in-usecs 1000000)
;; 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)
(define (convert-integer)
(cons (+ in-secs cur-secs) cur-usecs))
(if (integer? in-secs)