suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

raise exn on out-of-module expand of #%plain-module-begin

Browse Source 
svn: r4865
This commit is contained in:
Matthew Flatt 2006-11-15 21:28:16 +00:00
parent 8e95c4ec7b
commit 4c48514574
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mzscheme/src/module.c
View File

@ -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))