From c5565d46113f82d725a75522da43259137775098 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sat, 5 Dec 2009 02:21:25 +0000
Subject: [PATCH] instead of allowing no #%module-begin, catch it and report a
 suitable error

svn: r17191
---
 collects/scribble/lp-include.ss | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/scribble/lp-include.ss b/collects/scribble/lp-include.ss
index 09a3262180..f494e0dc47 100644
--- a/collects/scribble/lp-include.ss
+++ b/collects/scribble/lp-include.ss
@@ -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))]))
-