Eliminate unused and incorrectly implemented ustring-capitalize.

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index fe85b42190c8a4504b9918e43a807e59c87cdbb2..4d366a67cc95d399f324ae2a166f5621bae131f9 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -1158,7 +1158,6 @@ USA.
          ustring-any
          ustring-append
          ustring-append*
-         ustring-capitalize
          ustring-ci<=?
          ustring-ci<?
          ustring-ci=?

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index fc9a63cea5d8172951babdbf6ec1df861ee49a52..414db4c4b286730288ed071528494db12a2ccdcb 100644 (file)
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -256,16 +256,6 @@ USA.
            ((not (pair? chars)))
          (utf32-string-set! result i (car chars)))
        result))))
-
-;; Incorrect, needs title-case implementation
-(define (utf32-string-capitalize string)
-  (let ((index (utf32-string-find-first-index char-alphabetic? string))
-       (string (utf32-string-copy string)))
-    (if index
-       (utf32-string-set! string
-                          index
-                          (char-upcase (utf32-string-ref string index))))
-    string))
 \f
 ;;;; String
 
@@ -662,11 +652,6 @@ USA.
        ((utf32-string? string) (utf32-string-upcase string))
        (else (error:not-a ustring? string 'ustring-upcase))))
 
-(define (ustring-capitalize string)
-  (cond ((legacy-string? string) (legacy-string-capitalize string))
-       ((utf32-string? string) (utf32-string-capitalize string))
-       (else (error:not-a ustring? string 'ustring-capitalize))))
-
 (define (ustring-hash string #!optional modulus)
   (legacy-string-hash (string-for-primitive string) modulus))