From 64091f840b7335b1ce699cc5e457d7fdbf2d85f3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 6 Jun 2006 04:12:16 +0000
Subject: [PATCH] avoid int-def context for expanding begin0 expression

svn: r3245
---
 src/mzscheme/src/env.c    | 3 ++-
 src/mzscheme/src/syntax.c | 4 +++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/mzscheme/src/env.c b/src/mzscheme/src/env.c
index a178ab9600..410ea8add9 100644
--- a/src/mzscheme/src/env.c
+++ b/src/mzscheme/src/env.c
@@ -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;
diff --git a/src/mzscheme/src/syntax.c b/src/mzscheme/src/syntax.c
index c9f1e409a2..85084e8eb6 100644
--- a/src/mzscheme/src/syntax.c
+++ b/src/mzscheme/src/syntax.c
@@ -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: */