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

slightly broken searching -- in mid fix

Browse Source 
original commit: a5f2fe64b04284ebfbcc73df05327709566ba0df
This commit is contained in:
Robby Findler 1997-01-05 21:14:36 +00:00
parent 2d80232354
commit 2623142f3f
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mred/edit.ss
View File

@ -562,7 +562,6 @@
(if (= direction 1) (if (= direction 1)
(values add1 (lambda (x) (values add1 (lambda (x)
(cond (cond
[#t flat]
[(and (not (= -1 flat)) [(and (not (= -1 flat))
(<= flat x)) (<= flat x))
flat] flat]
@ -570,7 +569,6 @@
[else #f]))) [else #f])))
(values sub1 (lambda (x) (values sub1 (lambda (x)
(cond (cond
[#t flat]
[(and (not (= -1 flat)) [(and (not (= -1 flat))
(<= x flat)) (<= x flat))
flat] flat]
@ -600,6 +598,7 @@
(send media last-position)) (send media last-position))
-1 -1
get-start case-sensitive?)))]) get-start case-sensitive?)))])
(printf "found snip: ~a ~a~n" current-pos embedded-pos)
(if (= -1 embedded-pos) (if (= -1 embedded-pos)
(loop (increment current-pos)) (loop (increment current-pos))
(values embedded embedded-pos))))] (values embedded embedded-pos))))]