Eliminate unused binding.

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index e0b48e7aedfc3e122274fa0e495590710164bb37..fc9a63cea5d8172951babdbf6ec1df861ee49a52 100644 (file)
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -237,15 +237,15 @@ USA.
                      strings))))))
 \f
 (define (utf32-string-downcase string)
-  (utf32-case-transform string char-downcase-full 'utf32-string-downcase))
+  (utf32-case-transform string char-downcase-full))
 
 (define (utf32-string-foldcase string)
-  (utf32-case-transform string char-foldcase-full 'utf32-string-foldcase))
+  (utf32-case-transform string char-foldcase-full))
 
 (define (utf32-string-upcase string)
-  (utf32-case-transform string char-upcase-full 'utf32-string-upcase))
+  (utf32-case-transform string char-upcase-full))
 
-(define (utf32-case-transform string transform caller)
+(define (utf32-case-transform string transform)
   (let ((chars
         (append-map transform
                     (utf32-string->list string))))