From 28ce21c23ba8774ea9d342f9e3f8dcd17803d395 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 8 Apr 2009 09:51:38 +0000 Subject: [PATCH] fix bug in case-sens vs. case-insens find-string for text% svn: r14460 --- collects/mred/private/wxme/text.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/wxme/text.ss b/collects/mred/private/wxme/text.ss index 037fdfc55d..2cd842adf2 100644 --- a/collects/mred/private/wxme/text.ss +++ b/collects/mred/private/wxme/text.ss @@ -3461,7 +3461,7 @@ (let* ([n (sub1 n)] [c (string-ref text i)] - [c (if case-sens? (char-foldcase c) c)] + [c (if case-sens? c (char-foldcase c))] [s (let loop ([s s]) (if (and (not (= beyond s)) (not (char=? (string-ref str (+ s direction)) c)))