summaryrefslogtreecommitdiff
path: root/libguile/strings.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-02-08 11:40:51 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-02-08 11:40:51 +0000
commitcb0d8be234beaaa95481f2c5c7a2a0849d4f2a0f (patch)
treee1585811bd38b92f56eea53a96b0d5a312358581 /libguile/strings.h
parente382fdbe0f4c540dd70e6e77ccbf9368d7cea2e4 (diff)
downloadguile-cb0d8be234beaaa95481f2c5c7a2a0849d4f2a0f.tar.gz
* Fixed parameter checking for make-string.
* Corrected a bug introduced with the last patch.
Diffstat (limited to 'libguile/strings.h')
-rw-r--r--libguile/strings.h1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/strings.h b/libguile/strings.h
index 53a6e2ba9..cc3b54669 100644
--- a/libguile/strings.h
+++ b/libguile/strings.h
@@ -57,6 +57,7 @@
#define SCM_STRING_CHARS(x) ((char *) (SCM_CELL_WORD_1 (x)))
#endif
#define SCM_SET_STRING_CHARS(s, c) (SCM_SET_CELL_WORD_1 ((s), (c)))
+#define SCM_STRING_MAX_LENGTH ((1L << 24) - 1)
#define SCM_STRING_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8)
#define SCM_SET_STRING_LENGTH(s, l) (SCM_SET_CELL_WORD_0 ((s), ((l) << 8) + scm_tc7_string))