From 72ac3e89728a327bcadfa24e3a13465eaa6e2d06 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 27 Oct 2014 16:37:14 -0500 Subject: [PATCH] fix incorrect interpretation of 'eof in new find-string implementation original commit: 13d7e264c4c78a0a029a4a1427b2130ac262d6be --- pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt index dbe60ae7..65868f35 100644 --- 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