From 15a70ac6da755b38b11a45346754cac7705e296c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 1 Nov 2005 22:32:56 +0000
Subject: [PATCH] fixed dm_env lookup in the case of a define-syntaxes stack
 overflow

svn: r1204
---
 src/mzscheme/src/syntax.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/syntax.c b/src/mzscheme/src/syntax.c
index 99a60feede..791e05b8de 100644
--- a/src/mzscheme/src/syntax.c
+++ b/src/mzscheme/src/syntax.c
@@ -3096,7 +3096,8 @@ do_define_syntaxes_execute(Scheme_Object *form, Scheme_Env *dm_env, int for_stx)
 
   rhs_env = scheme_new_comp_env(scheme_get_env(NULL), NULL, SCHEME_TOPLEVEL_FRAME);
 
-  dm_env = scheme_environment_from_dummy(dummy);
+  if (!dm_env)
+    dm_env = scheme_environment_from_dummy(dummy);
 
   scheme_on_next_top(rhs_env, NULL, scheme_false, NULL, dm_env, dm_env->link_midx);
   return define_execute(SCHEME_CAR(form), SCHEME_CDR(form), for_stx ? 2 : 1, rp, dm_env);