bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 29aed8817e9b8cdd53b243af20d94124e245aa52
parent f5f0b9b3353e67571c817a5b0d60543e304c51a6
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Sat,  5 Dec 2009 02:21:25 +0000

instead of allowing no #%module-begin, catch it and report a suitable error

svn: r17191

original commit: c5565d46113f82d725a75522da43259137775098

Diffstat:
M
collects/scribble/lp-include.ss
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/collects/scribble/lp-include.ss b/collects/scribble/lp-include.ss
@@ -7,14 +7,14 @@
 (provide lp-include)
 
 (define-syntax (module stx)
-  (syntax-case stx ()
+  (syntax-case stx (#%module-begin)
+    [(module name base (#%module-begin body ...))
+     #'(begin body ...)]
     [(module name base body ...)
-     (begin
-       #'(begin 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))]))
-