From 44f09681769c78c1db785c508ddab5d75a83b272 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 May 1991 00:07:41 +0000
Subject: [PATCH] Change FASDUMP not to do OS_file_remove_link before opening
 its output file.  DUMP-BAND is unchanged.

---
 v7/src/microcode/fasdump.c | 8 ++++----
 v7/src/microcode/uxfile.c  | 5 ++---
 v7/src/microcode/version.h | 4 ++--
 v8/src/microcode/version.h | 4 ++--
 4 files changed, 10 insertions(+), 11 deletions(-)

diff --git a/v7/src/microcode/fasdump.c b/v7/src/microcode/fasdump.c
index e00296d82..19eca01fe 100644
--- a/v7/src/microcode/fasdump.c
+++ b/v7/src/microcode/fasdump.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasdump.c,v 9.50 1991/05/05 00:37:20 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasdump.c,v 9.51 1991/05/10 00:07:08 cph Exp $
 
-Copyright (c) 1987-1991 Massachusetts Institute of Technology
+Copyright (c) 1987-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -537,8 +537,8 @@ DEFINE_PRIMITIVE ("DUMP-BAND", Prim_band_dump, 2, 2, 0)
   else
   {
     CONST char * filename = ((CONST char *) (STRING_LOC ((ARG_REF (2)), 0)));
-    dump_channel =
-      (OS_open_dump_file (filename));
+    OS_file_remove_link (filename);
+    dump_channel = (OS_open_dump_file (filename));
     if (dump_channel == NO_CHANNEL)
       error_bad_range_arg (2);
     result = Write_File((Free - 1),
diff --git a/v7/src/microcode/uxfile.c b/v7/src/microcode/uxfile.c
index d71bc72a0..c12aa01be 100644
--- a/v7/src/microcode/uxfile.c
+++ b/v7/src/microcode/uxfile.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxfile.c,v 1.4 1991/01/24 11:25:46 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxfile.c,v 1.5 1991/05/10 00:07:27 cph Exp $
 
-Copyright (c) 1990-1 Massachusetts Institute of Technology
+Copyright (c) 1990-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -136,7 +136,6 @@ DEFUN (OS_open_load_file, (filename), CONST char * filename)
 Tchannel
 DEFUN (OS_open_dump_file, (filename), CONST char * filename)
 {
-  OS_file_remove_link (filename);
   while (1)
     {
       int fd = (UX_open (filename, (O_WRONLY | O_CREAT | O_TRUNC), MODE_REG));
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 364448268..528529303 100644
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.79 1991/05/09 03:49:40 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.80 1991/05/10 00:07:41 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -46,5 +46,5 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	79
+#define SUBVERSION	80
 #endif
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index bed9cfc2e..d30498652 100644
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.79 1991/05/09 03:49:40 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.80 1991/05/10 00:07:41 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -46,5 +46,5 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	79
+#define SUBVERSION	80
 #endif
-- 
2.25.1