mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 07:30:32 +02:00
Code Activity

* Replaced SCM_CHARS with SCM_STRING_CHARS or SCM_SYMBOL_CHARS.

Browse source
This commit is contained in:
Dirk Herrmann 2000-09-22 17:17:55 +00:00
parent c1aef03710
commit 86c991c2a2
17 changed files with 48 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/regex-posix.c
View file

@ -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,