.
original commit: 8f5fdc05c8816c4bbd3ff41ec6fe19e0b90bc1e9
This commit is contained in:
parent
b33811fcc7
commit
b98117e0b4
|
@ -251,7 +251,7 @@
|
|||
(make-output-port
|
||||
'counter
|
||||
always-evt
|
||||
(lambda (s start end flush?)
|
||||
(lambda (s start end flush? breakable?)
|
||||
(let ([c (- end start)])
|
||||
(set! discarded (+ c discarded))
|
||||
c))
|
||||
|
|
Loading…
Reference in New Issue
Block a user