diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-09-22 17:17:55 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-09-22 17:17:55 +0000 |
commit | 86c991c2a202c1d06caa5f01ec5d36a07a19bb96 (patch) | |
tree | de2cbc86a2935e2026ffa9deec7cbd564f0d688d /libguile/regex-posix.c | |
parent | c1aef037101d36e33de853041e407593cf32a489 (diff) | |
download | guile-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.c | 4 |
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, |