Change `file-open-channel' primitive to permit opening a file in

append mode.  The second argument to this primitive is now interpreted
as follows:

#F	=> open for input
#T	=> open for output
else	=> open for append

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index b51f73a033c1606761e8f0e1581e3181f87a603c..4ec05338abffb800322bcd0e833bdcce01c4c7b1 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.27 1990/03/05 21:05:19 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.28 1990/04/10 20:10:04 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION                11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     27
+#define SUBVERSION     28
 #endif
 
 #ifndef UCODE_TABLES_FILENAME

diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 1551a7a46eafe373a71976f1ca62ae8515331b2f..ab6d1ba0cc2d7a2994405963b0078d68cff73c64 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.27 1990/03/05 21:05:19 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.28 1990/04/10 20:10:04 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION                11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     27
+#define SUBVERSION     28
 #endif
 
 #ifndef UCODE_TABLES_FILENAME