From: Marius Vollmer Date: Sun, 25 Nov 2001 15:15:47 +0000 (+0000) Subject: (SCM_MAKE_SYMBOL_TAG): New. X-Git-Url: http://git.hcoop.net/bpt/guile.git/commitdiff_plain/0a7b506d24c824d997440387791adaf08eb5535b (SCM_MAKE_SYMBOL_TAG): New. --- 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))