diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-11-25 15:14:51 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-11-25 15:14:51 +0000 |
commit | c65e98224bfa9717411ff1e5e2097c749a277559 (patch) | |
tree | f2025afb8b4eaebcc365d9840159590e84d2be0b /libguile/strings.h | |
parent | 21ac1f4c5b324f188e8b2c37b66d6edc91dce546 (diff) | |
download | guile-c65e98224bfa9717411ff1e5e2097c749a277559.tar.gz |
(SCM_MAKE_STRING_TAG): New.
Diffstat (limited to 'libguile/strings.h')
-rw-r--r-- | libguile/strings.h | 3 |
1 files changed, 2 insertions, 1 deletions
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))) |