From 0b88bacd5eebae8fd5ae9e30c19aae5e36f17ca9 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 10 Jun 1992 21:36:45 +0000 Subject: [PATCH] Flush unnecessary primitives FILE-OPEN-BINARY-INPUT-CHANNEL and FILE-OPEN-BINARY-OUTPUT-CHANNEL. --- v7/src/microcode/prosfile.c | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/v7/src/microcode/prosfile.c b/v7/src/microcode/prosfile.c index 9ff4ec317..d1cbf2b43 100644 --- a/v7/src/microcode/prosfile.c +++ b/v7/src/microcode/prosfile.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosfile.c,v 1.4 1992/04/14 18:36:17 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosfile.c,v 1.5 1992/06/10 21:36:45 jinx Exp $ Copyright (c) 1987-1992 Massachusetts Institute of Technology @@ -63,15 +63,6 @@ DEFINE_PRIMITIVE ("FILE-OPEN-OUTPUT-CHANNEL", Prim_file_open_output_channel, 1, If the file exists, it is rewritten.") OPEN_FILE_PRIMITIVE (OS_open_output_file) -DEFINE_PRIMITIVE ("FILE-OPEN-BINARY-INPUT-CHANNEL", Prim_file_open_binary_input_channel, 1, 1, - "Open an input file called FILENAME, in binary mode, returning a channel number.") - OPEN_FILE_PRIMITIVE (OS_open_load_file) - -DEFINE_PRIMITIVE ("FILE-OPEN-BINARY-OUTPUT-CHANNEL", Prim_file_open_binary_output_channel, 1, 1, - "Open an output file called FILENAME, in binary mode,\n\ -returning a channel number. If the file exists, it is rewritten.") - OPEN_FILE_PRIMITIVE (OS_open_dump_file) - DEFINE_PRIMITIVE ("FILE-OPEN-IO-CHANNEL", Prim_file_open_io_channel, 1, 1, "Open a file called FILENAME, returning a channel number.\n\ The file is opened for both input and output.\n\ -- 2.25.1