suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 8f5fdc05c8816c4bbd3ff41ec6fe19e0b90bc1e9
This commit is contained in:
Matthew Flatt 2004-09-10 00:41:21 +00:00
parent b33811fcc7
commit b98117e0b4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/string.ss
View File

@ -251,7 +251,7 @@
(make-output-port (make-output-port
'counter 'counter
always-evt always-evt
(lambda (s start end flush?) (lambda (s start end flush? breakable?)
(let ([c (- end start)]) (let ([c (- end start)])
(set! discarded (+ c discarded)) (set! discarded (+ c discarded))
c)) c))