Change COPY-FILE to preserve file modes.

diff --git a/v7/src/runtime/sfile.scm b/v7/src/runtime/sfile.scm
index 261f76139c22aa5a474c7b97c750179f203365f1..ef5fee6a56e91a4875278491002c00f6eaae119b 100644 (file)
--- a/v7/src/runtime/sfile.scm
+++ b/v7/src/runtime/sfile.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: sfile.scm,v 14.11 1994/03/04 21:39:59 cph Exp $
+$Id: sfile.scm,v 14.12 1994/03/11 05:17:51 cph Exp $
 
 Copyright (c) 1988-94 Massachusetts Institute of Technology
 
@@ -94,7 +94,8 @@ MIT in each case. |#
                         (if (= n-read buffer-length)
                             (+ (loop (- source-length buffer-length))
                                buffer-length)
-                            n-read))))))))
+                            n-read)))))))
+        (set-file-modes! to (file-modes from)))
        (lambda ()
         (if output-channel (channel-close output-channel))
         (if input-channel (channel-close input-channel)))))))