From 67eb9858fb3382aa66a75e06930b27ba6ee73b80 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Dec 1999 19:25:33 +0000
Subject: [PATCH] Don't delete file that is target of COPY-FILE.  This is
 inconsistent with action on other operating systems, and is also not a good
 idea.

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

diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm
index 7cf5e7b4c..24c91c034 100644
--- a/v7/src/runtime/unxprm.scm
+++ b/v7/src/runtime/unxprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unxprm.scm,v 1.57 1999/12/16 22:24:58 cph Exp $
+$Id: unxprm.scm,v 1.58 1999/12/21 19:25:33 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -321,10 +321,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
       (dynamic-wind
        (lambda ()
 	 (set! input-channel (file-open-input-channel input-filename))
-	 (set! output-channel
-	       (begin
-		 ((ucode-primitive file-remove-link 1) output-filename)
-		 (file-open-output-channel output-filename)))
+	 (set! output-channel (file-open-output-channel output-filename))
 	 unspecific)
        (lambda ()
 	 (let ((source-length (channel-file-length input-channel))
-- 
2.25.1