From ab3cd83132885cc72f2533133a30319e8825c772 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 13 Feb 2017 02:12:36 -0800 Subject: [PATCH] Eliminate unused binding. --- src/runtime/ustring.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm index e0b48e7ae..fc9a63cea 100644 --- a/src/runtime/ustring.scm +++ b/src/runtime/ustring.scm @@ -237,15 +237,15 @@ USA. strings)))))) (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)))) -- 2.25.1