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

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

Browse Source
This commit is contained in:
Burke Fetscher 2013-01-15 21:43:33 -06:00
parent 7627e4c47e
commit 2f61d04073
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/framework/private/keymap.rkt
View File

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