Change FASDUMP not to do OS_file_remove_link before opening its output

file.  DUMP-BAND is unchanged.

diff --git a/v7/src/microcode/fasdump.c b/v7/src/microcode/fasdump.c
index e00296d82a2d161d2f8af647560a23c9cd556f68..19eca01fef3721d28749abb2ba3b328219f4b231 100644 (file)
--- 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 d71bc72a0dc04d6cd516d369da4c2137eb799d84..c12aa01be142814a25779c00838e897a6d6eb0fd 100644 (file)
--- 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 3644482687f7b596cd8666c4fa766aaa94c37e93..52852930354cc46b2860477e5659174071a640ca 100644 (file)
--- 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 bed9cfc2e000be7390985b65567e0286940b9888..d3049865218dc3a34169b958f659ee657c4e5a18 100644 (file)
--- 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