summaryrefslogtreecommitdiff
path: root/libguile/srfi-13.c
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2004-12-14 00:21:25 +0000
committerKevin Ryde <user42@zip.com.au>2004-12-14 00:21:25 +0000
commitfdc6aebfaf444a84e8b6291c2a5589f4ba477c7a (patch)
tree846ea6aa92b2ef35ffccb24f857e36e310d7c666 /libguile/srfi-13.c
parent680b5237147519bff4459a8dd6c0a1224b7e5a1c (diff)
downloadguile-fdc6aebfaf444a84e8b6291c2a5589f4ba477c7a.tar.gz
(string-any, string-every): Use a scheme
wrapper around the C code so for the final call to the predicate procedure is a tail call, per SRFI-13 spec.
Diffstat (limited to 'libguile/srfi-13.c')
-rw-r--r--libguile/srfi-13.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/srfi-13.c b/libguile/srfi-13.c
index 169bbc94b..c00279092 100644
--- a/libguile/srfi-13.c
+++ b/libguile/srfi-13.c
@@ -75,7 +75,7 @@ race_error ()
}
#endif
-SCM_DEFINE (scm_string_any, "string-any", 2, 2, 0,
+SCM_DEFINE (scm_string_any, "string-any-c-code", 2, 2, 0,
(SCM char_pred, SCM s, SCM start, SCM end),
"Check if the predicate @var{pred} is true for any character in\n"
"the string @var{s}.\n"
@@ -134,7 +134,7 @@ SCM_DEFINE (scm_string_any, "string-any", 2, 2, 0,
#undef FUNC_NAME
-SCM_DEFINE (scm_string_every, "string-every", 2, 2, 0,
+SCM_DEFINE (scm_string_every, "string-every-c-code", 2, 2, 0,
(SCM char_pred, SCM s, SCM start, SCM end),
"Check if the predicate @var{pred} is true for every character\n"
"in the string @var{s}.\n"