8 lines
250 B
Scheme
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)])])) |