From 0550cc36800210fae9b9cc2b04ee726a7d9de6b5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 23 Mar 2010 13:34:00 +0000
Subject: [PATCH] htdp language readers introduce explicit #%module-begin (for
 consistency with other #lang-based languages, as requested by JPR); merge
 to4.2.5

svn: r18605
---
 collects/lang/htdp-reader.ss | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/collects/lang/htdp-reader.ss b/collects/lang/htdp-reader.ss
index 86f1e9f6d8..877a30178c 100644
--- a/collects/lang/htdp-reader.ss
+++ b/collects/lang/htdp-reader.ss
@@ -39,10 +39,11 @@
                (datum->syntax-object
                 #f
                 `(module ,modname ,spec
-                   ,@(map (λ (x) `(require ,x))
-                          (lookup 'teachpacks table))
-                   ,@(parameterize ([read-case-sensitive (lookup 'read-case-sensitive table)]
-                                    [read-decimal-as-inexact #f]
-                                    [read-accept-dot #f])
-                       (get-all-exps source-name port))))))])
+                   (#%module-begin
+                    ,@(map (λ (x) `(require ,x))
+                           (lookup 'teachpacks table))
+                    ,@(parameterize ([read-case-sensitive (lookup 'read-case-sensitive table)]
+                                     [read-decimal-as-inexact #f]
+                                     [read-accept-dot #f])
+                        (get-all-exps source-name port)))))))])
       read-syntax)))