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

Changed two procedure names to match final SRFI document. Thanks

Browse source 
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.
This commit is contained in:
Martin Grabmüller 2001-04-26 19:54:48 +00:00
parent bd5e684091
commit 8dddb4bc9f
3 changed files with 25 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

16
srfi/srfi-13.c
View file

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