ASCII art box - don't search past extra +x space

2013-01-15 21:43:33 -06:00 · 2013-01-15 21:43:33 -06:00 · 2f61d04073
commit 2f61d04073
parent 7627e4c47e
1 changed files with 4 additions and 5 deletions
--- a/collects/framework/private/keymap.rkt
+++ b/collects/framework/private/keymap.rkt
@ -1530,11 +1530,10 @@

 (define (scan-for-start-pos t pos)
  (define-values (x y) (pos->xy t pos))
-  (define adjs '(0 -1 1))
  (findf
   (λ (p) (i? t p))
-     (for*/list ([xadj adjs]
-                 [yadj adjs])
+   (for*/list ([xadj '(0 -1)]
+               [yadj '(0 -1 1)])
     (xy->pos t (+ x xadj) (+ y yadj)))))
       
 (define (i? t pos)