suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix bug in case-sens vs. case-insens find-string for text%

Browse Source 
svn: r14460
This commit is contained in:
Matthew Flatt 2009-04-08 09:51:38 +00:00
parent 285dae4935
commit 28ce21c23b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wxme/text.ss
View File

@ -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)))