From 8c71f255321fb176c94ac18c27a5f7a5c365dd0e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 14 Feb 2017 00:05:40 -0800
Subject: [PATCH] Eliminate unused and incorrectly implemented
 ustring-capitalize.

---
 src/runtime/runtime.pkg |  1 -
 src/runtime/ustring.scm | 15 ---------------
 2 files changed, 16 deletions(-)

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))
 
-- 
2.25.1