From 4c485145743f0401147b57f07a250728a1e3c7e4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 15 Nov 2006 21:28:16 +0000
Subject: [PATCH] raise exn on out-of-module expand of #%plain-module-begin

svn: r4865
---
 src/mzscheme/src/module.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c
index a7249fb159..cbd41e69de 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -3842,6 +3842,9 @@ static Scheme_Object *do_module_begin(Scheme_Object *form, Scheme_Comp_Env *env,
   if (scheme_stx_proper_list_length(form) < 0)
     scheme_wrong_syntax(NULL, NULL, form, "bad syntax (" IMPROPER_LIST_FORM ")");
 
+  if (!env->genv->module)
+    scheme_wrong_syntax(NULL, NULL, form, "not currently transforming a module");
+
   /* Redefining a module? */
   redef_modname = env->genv->module->modname;
   if (!scheme_hash_get(env->genv->module_registry, redef_modname))