9 lines
281 B
Scheme
9 lines
281 B
Scheme
|
|
(module wrap mzscheme
|
|
(provide (rename module-begin #%module-begin))
|
|
(require (lib "include.ss"))
|
|
(define-syntax (module-begin stx)
|
|
(let ([name (syntax-property stx 'enclosing-module-name)])
|
|
#`(#%plain-module-begin
|
|
(include #,(format "~a.sch" name))))))
|