From 051e28b11b0a7ff672e91fe075c78ded29dba95e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 9 Feb 2009 11:21:42 +0000 Subject: [PATCH] detangle TOPLEVEL_MUTATED from TOPLEVEL_READY svn: r13500 --- src/mzscheme/src/schpriv.h | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/mzscheme/src/schpriv.h b/src/mzscheme/src/schpriv.h index 0b2311b223..ef64736e32 100644 --- a/src/mzscheme/src/schpriv.h +++ b/src/mzscheme/src/schpriv.h @@ -956,7 +956,7 @@ typedef struct Scheme_Local { #define SCHEME_LOCAL_CLEARING_MASK 0x3 typedef struct Scheme_Toplevel { - Scheme_Inclhash_Object iso; /* keyex used for const & ready flags */ + Scheme_Inclhash_Object iso; /* keyex used for flags (and can't be hashed) */ mzshort depth; int position; } Scheme_Toplevel; @@ -966,9 +966,8 @@ typedef struct Scheme_Toplevel { #define SCHEME_TOPLEVEL_FLAGS(obj) MZ_OPT_HASH_KEY(&((Scheme_Toplevel *)(obj))->iso) #define SCHEME_TOPLEVEL_CONST 0x1 -#define SCHEME_TOPLEVEL_MUTATED 0x2 #define SCHEME_TOPLEVEL_READY 0x2 -/* MUTATED and READY flags are used in different contexts */ +#define SCHEME_TOPLEVEL_MUTATED 0x4 typedef struct Scheme_Quote_Syntax { Scheme_Object so; /* scheme_quote_syntax_type */