From 5af717ec5b3727d173fed35429f43c793242e764 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 29 Nov 2007 21:17:55 +0000
Subject: [PATCH] don't expand RHS of letrec-syntaxes+values when in compile
 mode

svn: r7863
---
 src/mzscheme/src/syntax.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/syntax.c b/src/mzscheme/src/syntax.c
index 2046bc61ac..a83f069418 100644
--- a/src/mzscheme/src/syntax.c
+++ b/src/mzscheme/src/syntax.c
@@ -5269,7 +5269,7 @@ void scheme_bind_syntaxes(const char *where, Scheme_Object *names, Scheme_Object
   eenv = scheme_new_comp_env(exp_env, insp, 0);
 
   /* First expand for expansion-observation */
-  {
+  if (!rec[drec].comp) {
     scheme_init_expand_recs(rec, drec, &mrec, 1);
     SCHEME_EXPAND_OBSERVE_PHASE_UP(mrec.observer);
     a = scheme_expand_expr_lift_to_let(a, eenv, &mrec, 0);