summaryrefslogtreecommitdiff
path: root/libguile/strings.h
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-11-25 15:14:51 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-11-25 15:14:51 +0000
commitc65e98224bfa9717411ff1e5e2097c749a277559 (patch)
treef2025afb8b4eaebcc365d9840159590e84d2be0b /libguile/strings.h
parent21ac1f4c5b324f188e8b2c37b66d6edc91dce546 (diff)
downloadguile-c65e98224bfa9717411ff1e5e2097c749a277559.tar.gz
(SCM_MAKE_STRING_TAG): New.
Diffstat (limited to 'libguile/strings.h')
-rw-r--r--libguile/strings.h3
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)))