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

a change to hopefully improve the error message this file (sometimes) get in drdr

Browse Source
This commit is contained in:
Robby Findler 2010-07-31 10:29:07 -05:00
parent f96ed0632a
commit 5e8e4c6ffc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/drracket/repl-test.rkt
View File

@ -1194,7 +1194,7 @@ This produces an ACK message
(test:run-one (lambda () (send (send drscheme-frame get-break-button) command)))) (test:run-one (lambda () (send (send drscheme-frame get-break-button) command))))
(wait-for-execute) (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 [received-execute
(fetch-output drscheme-frame execute-text-start execute-text-end)]) (fetch-output drscheme-frame execute-text-start execute-text-end)])