From 8c3234f11221465b0fdefdca37ff99828ce80266 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 21 Mar 2006 00:18:54 +0000
Subject: [PATCH] fix define-syntaxes to not assume that the variable bucket
 has flags

svn: r2472
---
 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 1dc98f97f9..0b7689faff 100644
--- a/src/mzscheme/src/syntax.c
+++ b/src/mzscheme/src/syntax.c
@@ -593,7 +593,8 @@ void scheme_set_global_bucket(char *who, Scheme_Bucket *b, Scheme_Object *val,
 			      int set_undef)
 {
   if ((b->val || set_undef) 
-      && !(((Scheme_Bucket_With_Flags *)b)->flags & GLOB_IS_IMMUTATED))
+      && ((b->so.type != scheme_variable_type)
+	  || !(((Scheme_Bucket_With_Flags *)b)->flags & GLOB_IS_IMMUTATED)))
     b->val = val;
   else {
     if (((Scheme_Bucket_With_Home *)b)->home->module) {