;; at.scm - (c) rohan drape, 2004-2006

(define (at! T p f)
  (tschedule-at! T p f))

(define (at%! T c l f)
  (tschedule-at%! T c l f))

(define (after! T i f)
  (at! T (+ (utc->pulse T (utc)) i) f))

(define (after*! T i f)
  (at! T (+ (ceiling (utc->pulse T (utc))) i) f))

(define (rt! T p f)
  (tschedule-routine! T p f))