From 5ec1f21578e98b70e6e1f37907510150e5f22695 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 10 Apr 1990 20:10:04 +0000 Subject: [PATCH] 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 --- v7/src/microcode/version.h | 4 ++-- v8/src/microcode/version.h | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h index b51f73a03..4ec05338a 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.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 1551a7a46..ab6d1ba0c 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.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 -- 2.25.1