instead of allowing no #%module-begin, catch it and report a suitable error
svn: r17191
This commit is contained in:
parent
9c60a27493
commit
c5565d4611
|
@ -9,12 +9,12 @@
|
|||
(define-syntax (module stx)
|
||||
(syntax-case stx (#%module-begin)
|
||||
[(module name base (#%module-begin body ...))
|
||||
(begin
|
||||
#'(begin body ...))]))
|
||||
#'(begin body ...)]
|
||||
[(module name base body ...)
|
||||
(raise-syntax-error #f "missing #%module-begin" stx)]))
|
||||
|
||||
(define-syntax (lp-include stx)
|
||||
(syntax-case stx ()
|
||||
[(_ name)
|
||||
(with-syntax ([there (datum->syntax stx 'there)])
|
||||
#'(include-at/relative-to here there name))]))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user