summaryrefslogtreecommitdiff
path: root/libguile/strings.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-21 17:32:38 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-21 17:32:38 +0000
commitf0942910aff219e4a153d6d2f446c100127b0048 (patch)
treedf64a1a11a500bd1dc457832fc85071d31e96956 /libguile/strings.c
parentc2c276029351aeaade33050102e3f1a71e464015 (diff)
downloadguile-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.c7
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);