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

closes PR 11522

Browse Source
This commit is contained in:
Robby Findler 2010-12-10 06:37:33 -06:00
parent de4daa8d81
commit b902cb5455
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/stepper/xml-tool.rkt
View File

@ -354,6 +354,9 @@
(let ([char (send text get-character pos)])
(case char
[(#\>) #f]
[(#\/) (if last-space
(loop (- pos 1) last-space)
#f)]
[(#\<)
(if (or (char=? (send text get-character (+ pos 1)) #\/)
(char=? (send text get-character (+ pos 1)) #\>))