diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-21 17:32:38 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-21 17:32:38 +0000 |
commit | f0942910aff219e4a153d6d2f446c100127b0048 (patch) | |
tree | df64a1a11a500bd1dc457832fc85071d31e96956 /libguile/strings.c | |
parent | c2c276029351aeaade33050102e3f1a71e464015 (diff) | |
download | guile-f0942910aff219e4a153d6d2f446c100127b0048.tar.gz |
* Deprecated SCM_RWSTRINGP and SCM_VALIDATE_RWSTRING.
* Prepared SCM_STRING_U?CHARS to replace SCM_ROU?CHARS.
Diffstat (limited to 'libguile/strings.c')
-rw-r--r-- | libguile/strings.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/libguile/strings.c b/libguile/strings.c index 0427efcef..bfd7caa9f 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -261,13 +261,18 @@ SCM_DEFINE (scm_string_ref, "string-ref", 2, 0, 0, } #undef FUNC_NAME + SCM_DEFINE (scm_string_set_x, "string-set!", 3, 0, 0, (SCM str, SCM k, SCM chr), "Stores CHR in element K of STRING and returns an unspecified value.\n" "K must be a valid index of STR.") #define FUNC_NAME s_scm_string_set_x { - SCM_VALIDATE_RWSTRING (1,str); +#if (SCM_DEBUG_DEPRECATED == 0) + SCM_VALIDATE_RWSTRING (1, str); +#else + SCM_VALIDATE_STRING (1, str); +#endif SCM_VALIDATE_INUM_RANGE (2,k,0,SCM_STRING_LENGTH(str)); SCM_VALIDATE_CHAR (3,chr); SCM_STRING_UCHARS (str)[SCM_INUM (k)] = SCM_CHAR (chr); |