Changes so far.
svn: r17146 original commit: a22d201d85036e8d964d8c3eea08deb66199dbac
This commit is contained in:
parent
10effac28f
commit
24582b8cb0
|
@ -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 ...))]))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user