racket/collects/web-server/timer-structs.ss
2005-08-26 14:49:52 +00:00

8 lines
250 B
Scheme

(module timer-structs mzscheme
(require (lib "contract.ss"))
(define-struct timer (evt expire-seconds action))
(provide/contract
[struct timer ([evt evt?]
[expire-seconds number?]
[action (-> void)])]))