summaryrefslogtreecommitdiff
path: root/libguile/regex-posix.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-09-22 17:17:55 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-09-22 17:17:55 +0000
commit86c991c2a202c1d06caa5f01ec5d36a07a19bb96 (patch)
treede2cbc86a2935e2026ffa9deec7cbd564f0d688d /libguile/regex-posix.c
parentc1aef037101d36e33de853041e407593cf32a489 (diff)
downloadguile-86c991c2a202c1d06caa5f01ec5d36a07a19bb96.tar.gz
* Replaced SCM_CHARS with SCM_STRING_CHARS or SCM_SYMBOL_CHARS.
Diffstat (limited to 'libguile/regex-posix.c')
-rw-r--r--libguile/regex-posix.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c
index 66be0fe1e..4c0b22d03 100644
--- a/libguile/regex-posix.c
+++ b/libguile/regex-posix.c
@@ -124,14 +124,14 @@ scm_regexp_error_msg (int regerrno, regex_t *rx)
errmsg = scm_make_string (SCM_MAKINUM (80), SCM_UNDEFINED);
SCM_DEFER_INTS;
- l = regerror (regerrno, rx, SCM_CHARS (errmsg), 80);
+ l = regerror (regerrno, rx, SCM_STRING_CHARS (errmsg), 80);
if (l > 80)
{
errmsg = scm_make_string (SCM_MAKINUM (l), SCM_UNDEFINED);
regerror (regerrno, rx, SCM_CHARS (errmsg), l);
}
SCM_ALLOW_INTS;
- return SCM_CHARS (errmsg);
+ return SCM_STRING_CHARS (errmsg);
}
SCM_DEFINE (scm_regexp_p, "regexp?", 1, 0, 0,