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

detangle TOPLEVEL_MUTATED from TOPLEVEL_READY

Browse Source 
svn: r13500
This commit is contained in:
Matthew Flatt 2009-02-09 11:21:42 +00:00
parent 3c5d92af0b
commit 051e28b11b
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/mzscheme/src/schpriv.h
View File

@ -956,7 +956,7 @@ typedef struct Scheme_Local {
#define SCHEME_LOCAL_CLEARING_MASK 0x3 #define SCHEME_LOCAL_CLEARING_MASK 0x3
typedef struct Scheme_Toplevel { 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; mzshort depth;
int position; int position;
} Scheme_Toplevel; } 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_FLAGS(obj) MZ_OPT_HASH_KEY(&((Scheme_Toplevel *)(obj))->iso)
#define SCHEME_TOPLEVEL_CONST 0x1 #define SCHEME_TOPLEVEL_CONST 0x1
#define SCHEME_TOPLEVEL_MUTATED 0x2
#define SCHEME_TOPLEVEL_READY 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 { typedef struct Scheme_Quote_Syntax {
Scheme_Object so; /* scheme_quote_syntax_type */ Scheme_Object so; /* scheme_quote_syntax_type */