12 lines
252 B
Scheme
12 lines
252 B
Scheme
#lang scheme
|
|
|
|
(define-syntax (module-begin stx)
|
|
(syntax-case stx ()
|
|
[(_ term ...)
|
|
(syntax/loc stx
|
|
(#%module-begin
|
|
(define result '(term ...))
|
|
(provide result)))]))
|
|
|
|
(provide (rename-out [module-begin #%module-begin]))
|