suzanne.soy/gui
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 
original commit: 2f61d040732d241b9df77b215ecf98aac0d4a7da
This commit is contained in:
Burke Fetscher 2013-01-15 21:43:33 -06:00
parent d6166b1499
commit a614b998aa
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-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