time-< time-= time-<= time-+
<time-delta>
- make-time-delta time-delta?
+ make-time-delta tdelta time-delta?
time-delta-sec time-delta-usec
<schedule>
(define* (make-time-delta sec #:optional usec)
(make-time-delta-intern sec (or usec 0)))
+(define tdelta make-time-delta)
+
(define (time-+ time time-delta)
(cons (+ (car time) (time-delta-sec time-delta))
(+ (cdr time) (time-delta-usec time-delta))))
((? time-delta? time-delta)
(let ((time (time-+ (agenda-time agenda)
time-delta)))
- (schedule-at! time (run-request-proc proc))))
+ (schedule-at! time (run-request-proc run-request))))
((? integer? sec)
(let ((time (cons sec 0)))
- (schedule-at! time (run-request-proc proc))))
+ (schedule-at! time (run-request-proc run-request))))
(((? integer? sec) . (? integer? usec))
- (schedule-at! request-time (run-request-proc proc)))
+ (schedule-at! request-time (run-request-proc run-request)))
(#f
(enq! next-queue (run-request-proc run-request))))))))
;; @@: We might support delay-wrapped procedures here