summaryrefslogtreecommitdiff
path: root/srfi/srfi-13.c
diff options
context:
space:
mode:
authorMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-04-26 19:54:48 +0000
committerMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-04-26 19:54:48 +0000
commit8dddb4bc9f65f8c0f944785646e54f0013a32f5c (patch)
tree44b068d1d4b41bb212952cc17b76df4639cc199c /srfi/srfi-13.c
parentbd5e6840910070de8d50e26b968146252841d188 (diff)
downloadguile-8dddb4bc9f65f8c0f944785646e54f0013a32f5c.tar.gz
Changed two procedure names to match final SRFI document. Thanks
to Rob Browning for spotting this. * srfi-13.scm (string-concatenate-reverse), (string-concatenate-reverse/shared): Rename from reverse-string-concatenate[/shared]. * srfi-13.c (scm_string_concatenate_reverse_shared): Renamed from scm_reverse_string_concatenate_shared. (scm_string_concatenate_reverse): Renamed from scm_reverse_string_concatenate.
Diffstat (limited to 'srfi/srfi-13.c')
-rw-r--r--srfi/srfi-13.c16
1 files changed, 9 insertions, 7 deletions
diff --git a/srfi/srfi-13.c b/srfi/srfi-13.c
index 8372a7ad7..800677315 100644
--- a/srfi/srfi-13.c
+++ b/srfi/srfi-13.c
@@ -2297,7 +2297,7 @@ SCM_DEFINE (scm_string_concatenate, "string-concatenate", 1, 0, 0,
#undef FUNC_NAME
-SCM_DEFINE (scm_reverse_string_concatenate, "reverse-string-concatenate", 1, 2, 0,
+SCM_DEFINE (scm_string_concatenate_reverse, "string-concatenate-reverse", 1, 2, 0,
(SCM ls, SCM final_string, SCM end),
"Without optional arguments, this procedure is equivalent to\n"
"\n"
@@ -2307,10 +2307,12 @@ SCM_DEFINE (scm_reverse_string_concatenate, "reverse-string-concatenate", 1, 2,
"\n"
"If the optional argument @var{final_string} is specified, it is\n"
"consed onto the beginning to @var{ls} before performing the\n"
- "list-reverse and string-concatenate operations.\n"
+ "list-reverse and string-concatenate operations. If @var{end}\n"
+ "is given, only the characters of @var{final_string} up to index\n"
+ "@var{end} are used.\n"
"\n"
"Guaranteed to return a freshly allocated string.")
-#define FUNC_NAME s_scm_reverse_string_concatenate
+#define FUNC_NAME s_scm_string_concatenate_reverse
{
long strings;
SCM tmp, result;
@@ -2394,14 +2396,14 @@ SCM_DEFINE (scm_string_concatenate_shared, "string-concatenate/shared", 1, 0, 0,
#undef FUNC_NAME
-SCM_DEFINE (scm_reverse_string_concatenate_shared, "reverse-string-concatenate/shared", 1, 2, 0,
+SCM_DEFINE (scm_string_concatenate_reverse_shared, "string-concatenate-reverse/shared", 1, 2, 0,
(SCM ls, SCM final_string, SCM end),
- "Like @code{reverse-string-concatenate}, but the result may\n"
+ "Like @code{string-concatenate-reverse}, but the result may\n"
"share memory with the the strings in the @var{ls} arguments.")
-#define FUNC_NAME s_scm_reverse_string_concatenate_shared
+#define FUNC_NAME s_scm_string_concatenate_reverse_shared
{
/* Just call the non-sharing version. */
- return scm_reverse_string_concatenate (ls, final_string, end);
+ return scm_string_concatenate_reverse (ls, final_string, end);
}
#undef FUNC_NAME