6 lines
173 B
Scheme
6 lines
173 B
Scheme
(module timer-structs mzscheme
|
|
(require (lib "contract.ss"))
|
|
|
|
(define-struct timer (expire-seconds))
|
|
(provide/contract
|
|
[struct timer ([expire-seconds number?])])) |