~ chicken-core (chicken-5) 12b9a6e38fe0f3bd6f8602b1ea07e8d97357cd79

commit 12b9a6e38fe0f3bd6f8602b1ea07e8d97357cd79
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Aug 31 11:42:26 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Aug 31 11:42:26 2011 +0200

    also use binary mode for file-move

diff --git a/files.scm b/files.scm
index 2c2eb15c..f7e3d22c 100644
--- a/files.scm
+++ b/files.scm
@@ -117,8 +117,8 @@ EOF
 	    'file-move
 	    "newfile exists but clobber is false"
 	    newfile)))
-  (let* ((i (open-input-file origfile))
-	 (o (open-output-file newfile))
+  (let* ((i (open-input-file origfile #:binary))
+	 (o (open-output-file newfile #:binary))
 	 (s (make-string blocksize)))
     (let loop ((d (read-string! blocksize s i))
 	       (l 0))