diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-23 08:59:22 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-23 08:59:22 +0000 |
commit | 9377887701ecd64970fb8c65929ab2e8516ca929 (patch) | |
tree | b17162c36e4dd8be771edab74f13b6e1e37b9ed3 /libguile/strings.c | |
parent | d7cf43257826796a0503e33b162cb7424a65bdc4 (diff) | |
download | guile-9377887701ecd64970fb8c65929ab2e8516ca929.tar.gz |
* Deprecated SCM_SETLENGTH.
Diffstat (limited to 'libguile/strings.c')
-rw-r--r-- | libguile/strings.c | 4 |
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; |