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

,

Browse Source 
svn: r510
This commit is contained in:
Robby Findler 2005-07-31 01:14:54 +00:00
parent 04a466d23d
commit fe7de62c4f
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/framework/framework-test-engine.ss
View File

@ -55,6 +55,8 @@
(map (lambda (x) (string-append (exception->string x) (string #\newline))) (map (lambda (x) (string-append (exception->string x) (string #\newline)))
these-errs))))) these-errs)))))
out) out)
(newline out)
(flush-output out)
(loop)))))))))) (loop))))))))))
(let ([od (event-dispatch-handler)] (let ([od (event-dispatch-handler)]

6
collects/tests/framework/test-suite-utils.ss
View File

@ -195,10 +195,12 @@
[(tcp-error? x) [(tcp-error? x)
(restart-mred) (restart-mred)
(write sexp out-port) (write sexp out-port)
(newline out-port)] (newline out-port)
(flush-output out-port)]
[else (raise x)]))]) [else (raise x)]))])
(write sexp out-port) (write sexp out-port)
(newline out-port)) (newline out-port)
(flush-output out-port))
(let ([answer (let ([answer
(with-handlers ([exn:fail? (with-handlers ([exn:fail?
(lambda (x) (lambda (x)