From 2623142f3fa72704e1f9f482bcb09a26bb00b87f Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 5 Jan 1997 21:14:36 +0000
Subject: [PATCH] slightly broken searching -- in mid fix

original commit: a5f2fe64b04284ebfbcc73df05327709566ba0df
---
 collects/mred/edit.ss | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss
index 05d26748..f80a64f9 100644
--- a/collects/mred/edit.ss
+++ b/collects/mred/edit.ss
@@ -562,7 +562,6 @@
 		       (if (= direction 1)
 			   (values add1 (lambda (x) 
 					  (cond
-					    [#t flat]
 					    [(and (not (= -1 flat))
 						  (<= flat x))
 					     flat]
@@ -570,7 +569,6 @@
 					    [else #f])))
 			   (values sub1 (lambda (x)
 					  (cond
-					    [#t flat]
 					    [(and (not (= -1 flat))
 						  (<= x flat))
 					     flat]
@@ -600,6 +598,7 @@
 							 (send media last-position))
 						     -1
 						     get-start case-sensitive?)))])
+			    (printf "found snip: ~a ~a~n" current-pos embedded-pos)
 			    (if (= -1 embedded-pos)
 				(loop (increment current-pos))
 				(values embedded embedded-pos))))]