19 lines
419 B
Scheme
19 lines
419 B
Scheme
(module mred-doc mzscheme
|
|
|
|
(define mr-eval? (getenv "MREVAL"))
|
|
|
|
(define-syntax bounce
|
|
(syntax-rules ()
|
|
[(_ id)
|
|
(begin
|
|
(provide id)
|
|
(define id (if mr-eval?
|
|
(dynamic-require '(lib "mred/mred.ss") 'id)
|
|
#f)))]
|
|
[(_ id ...)
|
|
(begin (bounce id) ...)]))
|
|
|
|
(bounce frame% canvas%
|
|
bitmap% bitmap-dc%
|
|
color%))
|