From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Dec 1999 19:25:33 +0000 (+0000)
Subject: Don't delete file that is target of COPY-FILE.  This is inconsistent
X-Git-Tag: 20090517-FFI~4396
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=67eb9858fb3382aa66a75e06930b27ba6ee73b80;p=mit-scheme.git

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.
---

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))