.

original commit: 37109b760398607c3a2f69218a3d7dda3b061d03
2004-10-08 09:25:32 +00:00 · 2004-10-08 09:25:32 +00:00 · 6e29ebae83
commit 6e29ebae83
parent 318ea74f4d
1 changed files with 3 additions and 2 deletions
--- a/collects/mzlib/port.ss
+++ b/collects/mzlib/port.ss
@ -74,7 +74,8 @@
       (unless (output-port? dest)
 	 (raise-type-error 'copy-port "output-port" dest)))
     (cons dest dests))
-    (let ([s (make-bytes 4096)])
+    (let ([dests (cons dest dests)]
+	  [s (make-bytes 4096)])
      (let loop ()
 	(let ([c (read-bytes-avail! s src)])
 	  (unless (eof-object? c)
@ -84,7 +85,7 @@
 		 (unless (= start c)
 		   (let ([c2 (write-bytes-avail s dest start c)])
 		     (loop (+ start c2))))))
-	     (cons dest dests))
+	     dests)
 	    (loop))))))
  
  (define merge-input