original commit: 8f5fdc05c8816c4bbd3ff41ec6fe19e0b90bc1e9
This commit is contained in:
Matthew Flatt 2004-09-10 00:41:21 +00:00
parent b33811fcc7
commit b98117e0b4

View File

@ -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))