From 2f61d040732d241b9df77b215ecf98aac0d4a7da Mon Sep 17 00:00:00 2001 From: Burke Fetscher Date: Tue, 15 Jan 2013 21:43:33 -0600 Subject: [PATCH] ASCII art box - don't search past extra +x space --- collects/framework/private/keymap.rkt | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/collects/framework/private/keymap.rkt b/collects/framework/private/keymap.rkt index 36299d070a..4d8dc7a73a 100644 --- a/collects/framework/private/keymap.rkt +++ b/collects/framework/private/keymap.rkt @@ -1530,12 +1530,11 @@ (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]) - (xy->pos t (+ x xadj) (+ y yadj))))) + (λ (p) (i? t p)) + (for*/list ([xadj '(0 -1)] + [yadj '(0 -1 1)]) + (xy->pos t (+ x xadj) (+ y yadj))))) (define (i? t pos) (and pos