I have made a wrapper around some port via
(define my-port (make-output-port
'my-port
; This port is ready when the original is ready:
inner-port
; Writing procedure:
(lambda (s start end non-block? breakable?)
...) ...))
But if I call (flush-output my-port)
it doesn't flush data on inner-port
. Is it possible to catch flush-output
call and flush wrapped port?