From ac3e8d1f7945f24df744b70a3ba679e4a19d1fd2 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 11 Mar 1994 05:17:51 +0000
Subject: [PATCH] Change COPY-FILE to preserve file modes.

---
 v7/src/runtime/sfile.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/sfile.scm b/v7/src/runtime/sfile.scm
index 261f76139..ef5fee6a5 100644
--- 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)))))))
-- 
2.25.1