(define (time-from-float-or-fraction time)
"Produce a (sec . usec) pair from TIME, a float or fraction"
(let* ((mixed-whole (floor time))
(define (time-from-float-or-fraction time)
"Produce a (sec . usec) pair from TIME, a float or fraction"
(let* ((mixed-whole (floor time))