From 52a4b0f493a8475d5512944502dc3a23c7928b31 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 24 Mar 2007 22:39:52 +0000
Subject: [PATCH] fix expansion of a top-level letrec-syntaxes to properly
 track certificates

svn: r5820
---
 src/mzscheme/src/syntax.c | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/mzscheme/src/syntax.c b/src/mzscheme/src/syntax.c
index 43a5be1eb9..4de050d09c 100644
--- a/src/mzscheme/src/syntax.c
+++ b/src/mzscheme/src/syntax.c
@@ -5301,14 +5301,13 @@ do_letrec_syntaxes(const char *where,
 	Scheme_Object *formname;
 	formname = SCHEME_STX_CAR(forms);
 	v = icons(formname, icons(bindings, icons(var_bindings, v)));
-      } else
-	/* Should this be `let' instead? */
-	v = icons(begin_symbol, v);
+      } else {
+	v = icons(let_values_symbol, icons(scheme_null, v));
+      }
 
       if (SCHEME_PAIRP(v))
 	v = scheme_datum_to_syntax(v, forms, scheme_sys_wraps(origenv), 
 				   0, 2);
-      
     }
   } else {
     /* Construct letrec-values expression: */