Changes so far.

svn: r17146

original commit: a22d201d85036e8d964d8c3eea08deb66199dbac
This commit is contained in:
Stevie Strickland 2009-12-01 20:34:42 +00:00
parent 10effac28f
commit 24582b8cb0

View File

@ -7,8 +7,8 @@
(provide lp-include)
(define-syntax (module stx)
(syntax-case stx ()
[(module name base body ...)
(syntax-case stx (#%module-begin)
[(module name base (#%module-begin body ...))
(begin
#'(begin body ...))]))