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

Fixes typos in r18451

Browse Source 
svn: r18459
This commit is contained in:
Casey Klein 2010-03-04 00:14:40 +00:00
parent 5fe0a790c1
commit cd2fc95d4e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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