flush section header outputs
svn: r3930
This commit is contained in:
parent
92a0c5c4de
commit
2d7c1f6947
|
@ -54,8 +54,10 @@ transcript.
|
||||||
;; used for quiet testing (quiet.ss) to really show something
|
;; used for quiet testing (quiet.ss) to really show something
|
||||||
(defvar real-error-port #f)
|
(defvar real-error-port #f)
|
||||||
(define (eprintf* fmt . args)
|
(define (eprintf* fmt . args)
|
||||||
(let ([msg (apply format fmt args)])
|
(let ([msg (apply format fmt args)]
|
||||||
(display msg (or real-error-port (current-error-port)))))
|
[err (or real-error-port (current-error-port))])
|
||||||
|
(display msg err)
|
||||||
|
(flush-output err)))
|
||||||
|
|
||||||
(define (Section . args)
|
(define (Section . args)
|
||||||
(eprintf* "Section~s\n" args)
|
(eprintf* "Section~s\n" args)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user