diff options
| author | Michael Livshin <mlivshin@bigfoot.com> | 2001-05-26 20:51:22 +0000 |
|---|---|---|
| committer | Michael Livshin <mlivshin@bigfoot.com> | 2001-05-26 20:51:22 +0000 |
| commit | c014a02eec7b99c54d8a156ce491ae8d1e341f97 (patch) | |
| tree | fa7a113564c23215b83e44a1498616a6bf16c853 /libguile/symbols.h | |
| parent | f3f70257a3befb6495760923d167e52d5cdfddae (diff) | |
| download | guile-c014a02eec7b99c54d8a156ce491ae8d1e341f97.tar.gz | |
revert the ill-considered part of the 2001-05-24 changes
Diffstat (limited to 'libguile/symbols.h')
| -rw-r--r-- | libguile/symbols.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/symbols.h b/libguile/symbols.h index fe4870b0e..3691ac46e 100644 --- a/libguile/symbols.h +++ b/libguile/symbols.h @@ -55,11 +55,11 @@ */ #define SCM_SYMBOLP(x) (SCM_NIMP (x) && (SCM_TYP7 (x) == scm_tc7_symbol)) -#define SCM_SYMBOL_LENGTH(x) (((scm_ubits_t) SCM_CELL_WORD_0 (x)) >> 8) +#define SCM_SYMBOL_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8) #define SCM_SET_SYMBOL_LENGTH(s, l) (SCM_SET_CELL_WORD_0 ((s), ((l) << 8) + scm_tc7_symbol)) #define SCM_SYMBOL_CHARS(x) ((char *) (SCM_CELL_WORD_1 (x))) #define SCM_SET_SYMBOL_CHARS(s, c) (SCM_SET_CELL_WORD_1 ((s), (c))) -#define SCM_SYMBOL_HASH(X) ((scm_ubits_t) SCM_CELL_WORD_2 (X)) +#define SCM_SYMBOL_HASH(X) ((unsigned long) SCM_CELL_WORD_2 (X)) #define SCM_SET_SYMBOL_HASH(X, v) (SCM_SET_CELL_WORD_2 ((X), (v))) #define SCM_PROP_SLOTS(X) (SCM_CELL_WORD_3 (X)) @@ -103,7 +103,7 @@ extern void scm_init_symbols (void); #define SCM_SUBSTR_STR(x) (SCM_CDDR (x)) #define SCM_SUBSTR_OFFSET(x) (SCM_CADR (x)) #define SCM_LENGTH_MAX (0xffffffL) -#define SCM_LENGTH(x) (((scm_ubits_t) SCM_CELL_WORD_0 (x)) >> 8) +#define SCM_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8) #define SCM_SETLENGTH(x, v, t) (SCM_SET_CELL_WORD_0 ((x), ((v) << 8) + (t))) #define SCM_ROSTRINGP(x) (SCM_NIMP(x) && ((SCM_TYP7S(x)==scm_tc7_string) \ || (SCM_TYP7(x) == scm_tc7_symbol))) |