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

svn: r18451

Browse Source
This commit is contained in:
Robby Findler 2010-03-03 19:13:43 +00:00
parent eec0ff66c6
commit 7c1b076ee1
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/drscheme/drscheme-test-util.ss
View File

@ -455,6 +455,10 @@
;; return the text of the entire line containing the red text
(let ([para (send interactions-text position-paragraph pos)])
(unless (exact-non-negative-integer? para)
(error 'has-error? "got back a bad result from position-paragraph: ~s ~s\n"
para
(list pos (send text last-position))))
(send interactions-text get-text
(send interactions-text paragraph-start-position para)
(send interactions-text paragraph-end-position para)))