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

original commit: 13d7e264c4c78a0a029a4a1427b2130ac262d6be
2014-10-27 16:37:14 -05:00 · 2014-10-27 16:37:14 -05:00 · 72ac3e8972
commit 72ac3e8972
parent 290b5c6893
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