From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Jan 2017 01:45:54 +0000 (-0800)
Subject: Fix typo.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~68
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=49657f48d6c3c82ae64eafb10fed2525557022e4;p=mit-scheme.git

Fix typo.
---

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index 703ea3ad7..b4d9b691d 100644
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -640,11 +640,11 @@ USA.
 (define (ustring-find-last-char string char #!optional start end)
   (ustring-find-last-index (char=-predicate char) string start end))
 
-(define (ustring-find-first-char-in-set string char #!optional start end)
-  (ustring-find-first-index (char-set-predicate char) string start end))
+(define (ustring-find-first-char-in-set string char-set #!optional start end)
+  (ustring-find-first-index (char-set-predicate char-set) string start end))
 
-(define (ustring-find-last-char-in-set string char #!optional start end)
-  (ustring-find-last-index (char-set-predicate char) string start end))
+(define (ustring-find-last-char-in-set string char-set #!optional start end)
+  (ustring-find-last-index (char-set-predicate char-set) string start end))
 
 (define (ustring-upcase string)
   (cond ((legacy-string? string) (legacy-string-upcase string))