suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix define-syntaxes to not assume that the variable bucket has flags

Browse Source 
svn: r2472
This commit is contained in:
Matthew Flatt 2006-03-21 00:18:54 +00:00
parent 0158970c1a
commit 8c3234f112
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mzscheme/src/syntax.c
View File

@ -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) {