From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 14 Feb 2017 08:05:40 +0000 (-0800)
Subject: Eliminate unused and incorrectly implemented ustring-capitalize.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~114
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8c71f255321fb176c94ac18c27a5f7a5c365dd0e;p=mit-scheme.git

Eliminate unused and incorrectly implemented ustring-capitalize.
---

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index fe85b4219..4d366a67c 100644
--- 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 fc9a63cea..414db4c4b 100644
--- 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))
 
 ;;;; 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))