From 5e8e4c6ffc486fd6a723e044992dc49a0dc12b97 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 31 Jul 2010 10:29:07 -0500 Subject: [PATCH] a change to hopefully improve the error message this file (sometimes) get in drdr --- collects/tests/drracket/repl-test.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/drracket/repl-test.rkt b/collects/tests/drracket/repl-test.rkt index 84a9b08309..3b9db3164e 100644 --- a/collects/tests/drracket/repl-test.rkt +++ b/collects/tests/drracket/repl-test.rkt @@ -1194,7 +1194,7 @@ This produces an ACK message (test:run-one (lambda () (send (send drscheme-frame get-break-button) command)))) (wait-for-execute) - (let* ([execute-text-end (- (get-int-pos) 1)] ;; subtract one to skip last newline + (let* ([execute-text-end (max 0 (- (get-int-pos) 1))] ;; subtract one to skip last newline [received-execute (fetch-output drscheme-frame execute-text-start execute-text-end)])