From 7c1b076ee1591572c9e7340e764a578161f2f5fc Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 3 Mar 2010 19:13:43 +0000 Subject: [PATCH] svn: r18451 --- collects/tests/drscheme/drscheme-test-util.ss | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/collects/tests/drscheme/drscheme-test-util.ss b/collects/tests/drscheme/drscheme-test-util.ss index a4956f530c..2de5cf84ba 100644 --- a/collects/tests/drscheme/drscheme-test-util.ss +++ b/collects/tests/drscheme/drscheme-test-util.ss @@ -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)))