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.

diff --git a/srfi/ChangeLog b/srfi/ChangeLog
index 42e34de..ac85c2f 100644 (file)
--- a/srfi/ChangeLog
+++ b/srfi/ChangeLog
@@ -1,3 +1,17 @@
+2001-04-26  Martin Grabmueller  <mgrabmue@cs.tu-berlin.de>
+
+       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.
+
 2001-04-25  Martin Grabmueller  <mgrabmue@cs.tu-berlin.de>
 
        * configure.in, autogen.sh: Removed.

diff --git a/srfi/srfi-13.c b/srfi/srfi-13.c
index 8372a7a..8006773 100644 (file)
--- 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
 

diff --git a/srfi/srfi-13.scm b/srfi/srfi-13.scm
index c40933a..89f974d 100644 (file)
--- a/srfi/srfi-13.scm
+++ b/srfi/srfi-13.scm
@@ -86,9 +86,9 @@
  ;; string-append                    <= in the core
  string-append/shared
  string-concatenate
- reverse-string-concatenate
+ string-concatenate-reverse
  string-concatenate/shared
- reverse-string-concatenate/shared
+ string-concatenate-reverse/shared
 
 ;;; Fold/Unfold/Map
  string-map string-map!