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

fix error reporting in setup-plt

Browse Source 
svn: r10022
This commit is contained in:
Matthew Flatt 2008-05-29 20:28:21 +00:00
parent 3d1241bc5d
commit 204d1292f0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/setup/setup-unit.ss
View File

@ -123,7 +123,7 @@
(define (done) (define (done)
(setup-printf #f "done") (setup-printf #f "done")
(unless (null? errors) (unless (null? errors)
(setup-fprintf #f "") (setup-printf #f "")
(show-errors (current-error-port)) (show-errors (current-error-port))
(when (pause-on-errors) (when (pause-on-errors)
(fprintf (current-error-port) (fprintf (current-error-port)
@ -605,7 +605,7 @@
(for ([cc ccs-to-compile]) (for ([cc ccs-to-compile])
(parameterize ([current-namespace (get-namespace)]) (parameterize ([current-namespace (get-namespace)])
(begin-record-error (begin-record-error
cc (format "~a: compiling..." desc) cc "making"
(unless (control-io-apply (unless (control-io-apply
(case-lambda (case-lambda
[(p) [(p)