From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 Oct 1996 17:55:38 +0000 (+0000)
Subject: Catch additional error code that can occur when file doesn't exist.
X-Git-Tag: 20090517-FFI~5369
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=740a8753923f52bb32011d7633b9bc87299a858d;p=mit-scheme.git

Catch additional error code that can occur when file doesn't exist.
---

diff --git a/v7/src/microcode/ntfs.c b/v7/src/microcode/ntfs.c
index ef60189cf..5ad687786 100644
--- a/v7/src/microcode/ntfs.c
+++ b/v7/src/microcode/ntfs.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: ntfs.c,v 1.10 1995/10/28 02:10:32 cph Exp $
+$Id: ntfs.c,v 1.11 1996/10/07 17:55:38 cph Exp $
 
-Copyright (c) 1992-95 Massachusetts Institute of Technology
+Copyright (c) 1992-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -104,7 +104,9 @@ DEFUN (guarantee_writable, (name, errorp),
   if (attributes == 0xFFFFFFFF)
     {
       DWORD error_code = (GetLastError ());
-      if ((error_code != ERROR_FILE_NOT_FOUND) && errorp)
+      if ((! ((error_code == ERROR_FILE_NOT_FOUND)
+	      || (error_code == ERROR_PATH_NOT_FOUND)))
+	  && errorp)
 	error_system_call (error_code, syscall_stat);
     }
   else if ((attributes & FILE_ATTRIBUTE_READONLY) != 0)