From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 14 Apr 1992 18:36:17 +0000 (+0000)
Subject: Add FILE-OPEN-BINARY-INPUT-CHANNEL and FILE-OPEN-BINARY-OUTPUT-CHANNEL
X-Git-Tag: 20090517-FFI~9487
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c754c8c62122eaf9862795b161f5d1446235b5b7;p=mit-scheme.git

Add FILE-OPEN-BINARY-INPUT-CHANNEL and FILE-OPEN-BINARY-OUTPUT-CHANNEL
for systems where text files and binary files are distinct.
---

diff --git a/v7/src/microcode/prosfile.c b/v7/src/microcode/prosfile.c
index 80bac0c00..9ff4ec317 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.3 1992/01/20 17:25:43 jinx Exp $
+$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 $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -63,6 +63,15 @@ 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\