fix incorrect interpretation of 'eof in new find-string implementation

2014-10-27 16:37:14 -05:00 · 2014-10-27 16:37:14 -05:00 · 13d7e264c4
commit 13d7e264c4
parent 0a8764b470
1 changed files with 1 additions and 1 deletions
--- a/pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt
+++ b/pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt
@ -3559,7 +3559,7 @@
                                     just-one? beginning-of-match? case-sens? recur-inside?)
    (define end 
      (cond
-        [(equal? _end 'eof) (last-position)]
+        [(equal? _end 'eof) (if (equal? direction 'forward) (last-position) 0)]
        [else _end]))
    (define start
      (cond