From cd2fc95d4e9f3ad25c857d51a84b535bd20711a1 Mon Sep 17 00:00:00 2001 From: Casey Klein Date: Thu, 4 Mar 2010 00:14:40 +0000 Subject: [PATCH] Fixes typos in r18451 svn: r18459 --- collects/tests/drscheme/drscheme-test-util.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/tests/drscheme/drscheme-test-util.ss b/collects/tests/drscheme/drscheme-test-util.ss index 2de5cf84ba..91c770b377 100644 --- a/collects/tests/drscheme/drscheme-test-util.ss +++ b/collects/tests/drscheme/drscheme-test-util.ss @@ -455,10 +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) + (unless (exact-nonnegative-integer? para) (error 'has-error? "got back a bad result from position-paragraph: ~s ~s\n" para - (list pos (send text last-position)))) + (list pos (send interactions-text last-position)))) (send interactions-text get-text (send interactions-text paragraph-start-position para) (send interactions-text paragraph-end-position para))) @@ -587,4 +587,4 @@ (exit 1)))) (run-test) (exit))) - (yield (make-semaphore 0)))) \ No newline at end of file + (yield (make-semaphore 0))))