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

cant figure out what the real bug is, so added in this defensive thing

Browse Source 
svn: r10150
This commit is contained in:
Robby Findler 2008-06-05 16:38:22 +00:00
parent ae09de2fa2
commit 995bab2d5c
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/debug.ss
View File

@ -693,7 +693,7 @@ profile todo:
(< (send from-text get-snip-position snip) para-end-pos))
(send to-text insert (send snip copy))
(loop (send snip next))))
(send to-text highlight-range (- from-start 1) from-end (get-error-color) #f #f 'high)
(send to-text highlight-range (max 0 (- from-start 1)) from-end (get-error-color) #f #f 'high)
to-text))
;; get-filename : debug-source -> string