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

PR 9712

Browse Source 
svn: r11448
This commit is contained in:
Robby Findler 2008-08-27 04:47:52 +00:00
parent 8c9e4bcfe0
commit 381bc9351c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drscheme/private/unit.ss
View File

@ -202,7 +202,7 @@ module browser threading seems wrong.
(define (find-symbol text pos)
(send text split-snip pos)
(send text split-snip (+ pos 1))
(let ([snip (send text find-snip pos 'after-or-none)])
(let ([snip (send text find-snip pos 'after)])
(if (is-a? snip string-snip%)
(let* ([before
(let loop ([i (- pos 1)]