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

.

Browse Source 
original commit: 37109b760398607c3a2f69218a3d7dda3b061d03
This commit is contained in:
Eli Barzilay 2004-10-08 09:25:32 +00:00
parent 318ea74f4d
commit 6e29ebae83
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzlib/port.ss
View File

@ -74,7 +74,8 @@
(unless (output-port? dest) (unless (output-port? dest)
(raise-type-error 'copy-port "output-port" dest))) (raise-type-error 'copy-port "output-port" dest)))
(cons dest dests)) (cons dest dests))
(let ([s (make-bytes 4096)]) (let ([dests (cons dest dests)]
[s (make-bytes 4096)])
(let loop () (let loop ()
(let ([c (read-bytes-avail! s src)]) (let ([c (read-bytes-avail! s src)])
(unless (eof-object? c) (unless (eof-object? c)
@ -84,7 +85,7 @@
(unless (= start c) (unless (= start c)
(let ([c2 (write-bytes-avail s dest start c)]) (let ([c2 (write-bytes-avail s dest start c)])
(loop (+ start c2)))))) (loop (+ start c2))))))
(cons dest dests)) dests)
(loop)))))) (loop))))))
(define merge-input (define merge-input