From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 22 Aug 1997 16:33:14 +0000 (+0000)
Subject: Eliminate conditionalization on OS_open_append_file; this procedure
X-Git-Tag: 20090517-FFI~5025
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b6421905287b6e7427c540cedb87b72ef09cb693;p=mit-scheme.git

Eliminate conditionalization on OS_open_append_file; this procedure
compiles and runs just fine and probably should not have been
conditionalized in the first place.
---

diff --git a/v7/src/microcode/ntfile.c b/v7/src/microcode/ntfile.c
index 1e31fa812..486e4c619 100644
--- a/v7/src/microcode/ntfile.c
+++ b/v7/src/microcode/ntfile.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ntfile.c,v 1.9 1997/06/19 05:55:34 cph Exp $
+$Id: ntfile.c,v 1.10 1997/08/22 16:33:14 cph Exp $
 
 Copyright (c) 1992-97 Massachusetts Institute of Technology
 
@@ -115,9 +115,6 @@ DEFUN_OPEN_FILE (OS_open_io_file,
    (FILE_SHARE_READ | FILE_SHARE_WRITE), 0,
    OPEN_ALWAYS, (FILE_ATTRIBUTE_NORMAL | FILE_FLAG_RANDOM_ACCESS), 0));
 
-
-#ifdef HAVE_APPEND
-
 Tchannel
 DEFUN (OS_open_append_file, (filename), CONST char * filename)
 {
@@ -136,17 +133,6 @@ DEFUN (OS_open_append_file, (filename), CONST char * filename)
     NT_error_api_call ((GetLastError ()), apicall_SetFilePointer);
   return (OS_open_handle (hFile));
 }
-
-#else
-
-Tchannel
-DEFUN (OS_open_append_file, (filename), CONST char * filename)
-{
-  error_unimplemented_primitive ();
-  return (0);
-}
-
-#endif
 
 static Tchannel
 DEFUN (make_load_channel, (handle), HANDLE handle)