From c65e98224bfa9717411ff1e5e2097c749a277559 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sun, 25 Nov 2001 15:14:51 +0000 Subject: [PATCH] (SCM_MAKE_STRING_TAG): New. --- libguile/strings.h | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/libguile/strings.h b/libguile/strings.h index 9104a42e4..e7952cae2 100644 --- a/libguile/strings.h +++ b/libguile/strings.h @@ -56,7 +56,8 @@ #define SCM_SET_STRING_CHARS(s, c) (SCM_SET_CELL_WORD_1 ((s), (c))) #define SCM_STRING_MAX_LENGTH ((1UL << 24) - 1UL) #define SCM_STRING_LENGTH(x) ((size_t) (SCM_CELL_WORD_0 (x) >> 8)) -#define SCM_SET_STRING_LENGTH(s, l) (SCM_SET_CELL_WORD_0 ((s), (((scm_t_bits) (l)) << 8) + scm_tc7_string)) +#define SCM_MAKE_STRING_TAG(l) ((((scm_t_bits) (l)) << 8) + scm_tc7_string) +#define SCM_SET_STRING_LENGTH(s, l) (SCM_SET_CELL_WORD_0 ((s), SCM_MAKE_STRING_TAG (l)))