Flush unnecessary primitives FILE-OPEN-BINARY-INPUT-CHANNEL and

FILE-OPEN-BINARY-OUTPUT-CHANNEL.

diff --git a/v7/src/microcode/prosfile.c b/v7/src/microcode/prosfile.c
index 9ff4ec3175bb6256481dd7a16c8f122fce643261..d1cbf2b4381181da332966c82fd5b007695418ba 100644 (file)
--- 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\