summaryrefslogtreecommitdiff
path: root/libguile/strings.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-23 08:59:22 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-23 08:59:22 +0000
commit9377887701ecd64970fb8c65929ab2e8516ca929 (patch)
treeb17162c36e4dd8be771edab74f13b6e1e37b9ed3 /libguile/strings.c
parentd7cf43257826796a0503e33b162cb7424a65bdc4 (diff)
downloadguile-9377887701ecd64970fb8c65929ab2e8516ca929.tar.gz
* Deprecated SCM_SETLENGTH.
Diffstat (limited to 'libguile/strings.c')
-rw-r--r--libguile/strings.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/strings.c b/libguile/strings.c
index d17260746..470b3206f 100644
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -133,7 +133,7 @@ scm_makstr (long len, int dummy)
mem[len] = 0;
SCM_NEWCELL (s);
SCM_SETCHARS (s, mem);
- SCM_SETLENGTH (s, len, scm_tc7_string);
+ SCM_SET_STRING_LENGTH (s, len);
return s;
}
@@ -168,7 +168,7 @@ scm_take_str (char *s, int len)
SCM answer;
SCM_NEWCELL (answer);
SCM_DEFER_INTS;
- SCM_SETLENGTH (answer, len, scm_tc7_string);
+ SCM_SET_STRING_LENGTH (answer, len);
scm_done_malloc (len + 1);
SCM_SETCHARS (answer, s);
SCM_ALLOW_INTS;