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

avoid int-def context for expanding begin0 expression

Browse Source 
svn: r3245
This commit is contained in:
Matthew Flatt 2006-06-06 04:12:16 +00:00
parent b4af10dc2e
commit 64091f840b
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1289,7 +1289,8 @@ Scheme_Comp_Env *scheme_no_defines(Scheme_Comp_Env *env)
{
if (scheme_is_toplevel(env)
|| scheme_is_module_env(env)
|| scheme_is_module_begin_env(env))
|| scheme_is_module_begin_env(env)
|| (env->flags & SCHEME_INTDEF_FRAME))
return scheme_new_compilation_frame(0, 0, env, NULL);
else
return env;

4
src/mzscheme/src/syntax.c
View File

@ -3698,8 +3698,10 @@ do_begin_expand(char *name,
return NULL;
}
if (zero)
if (zero) {
env = scheme_no_defines(env);
printf("%d\n", env->flags);
}
if (!scheme_is_toplevel(env)) {
/* Not at top-level: */