diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-11-25 15:15:47 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-11-25 15:15:47 +0000 |
commit | 0a7b506d24c824d997440387791adaf08eb5535b (patch) | |
tree | 95c3c41a6d6b76012a4c59d515565f44b1c1cf7e | |
parent | c65e98224bfa9717411ff1e5e2097c749a277559 (diff) | |
download | guile-0a7b506d24c824d997440387791adaf08eb5535b.tar.gz |
(SCM_MAKE_SYMBOL_TAG): New.
-rw-r--r-- | libguile/symbols.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/symbols.h b/libguile/symbols.h index 3a0269ff2..9de355540 100644 --- a/libguile/symbols.h +++ b/libguile/symbols.h @@ -55,7 +55,8 @@ #define SCM_SYMBOLP(x) (!SCM_IMP (x) && (SCM_TYP7 (x) == scm_tc7_symbol)) #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_MAKE_SYMBOL_TAG(l) (((l) << 8) + scm_tc7_symbol) +#define SCM_SET_SYMBOL_LENGTH(s, l) (SCM_SET_CELL_WORD_0 ((s), SCM_MAKE_SYMBOL_TAG(l))) #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) ((unsigned long) SCM_CELL_WORD_2 (X)) |