From 49657f48d6c3c82ae64eafb10fed2525557022e4 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 26 Jan 2017 17:45:54 -0800 Subject: [PATCH] Fix typo. --- 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 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)) -- 2.25.1