19 lines
427 B
Scheme
19 lines
427 B
Scheme
(module slideshow-code-doc mzscheme
|
|
(require (only "slideshow-doc.ss"))
|
|
|
|
(define mr-eval? (getenv "MREVAL"))
|
|
|
|
(define-syntax bounce
|
|
(syntax-rules ()
|
|
[(_ id)
|
|
(begin
|
|
(provide id)
|
|
(define id (if mr-eval?
|
|
(dynamic-require '(lib "code.ss" "slideshow") 'id)
|
|
#f)))]
|
|
[(_ id ...)
|
|
(begin (bounce id) ...)]))
|
|
|
|
(bounce typeset-code))
|
|
|