.
original commit: 996671b2e35597c53c684c96db47e58294399122
This commit is contained in:
parent
b0f9e3dc23
commit
99ee876fa2
|
@ -1322,7 +1322,7 @@ WARNING: printf is rebound in the body of the unit to always
|
|||
[(eq? (current-thread) (eventspace-handler-thread eventspace))
|
||||
(error 'write-bytes-proc "cannot write to port on eventspace main thread")]
|
||||
[else
|
||||
(channel-put write-chan (cons (subbytes to-write start end) style))])
|
||||
(channel-put write-chan (cons (subbytes to-write start end) style))])
|
||||
(- end start)))
|
||||
|
||||
(define (flush-proc)
|
||||
|
|
Loading…
Reference in New Issue
Block a user