From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 9 Nov 1993 19:06:14 +0000 (+0000)
Subject: Fix problem in AIX: ENOTEMPTY = EEXIST.
X-Git-Tag: 20090517-FFI~7561
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d3589f65abace09ef9e3b5cc85fe59cd7062e420;p=mit-scheme.git

Fix problem in AIX: ENOTEMPTY = EEXIST.
---

diff --git a/v7/src/microcode/uxtop.c b/v7/src/microcode/uxtop.c
index 2684a6010..9570e8136 100644
--- a/v7/src/microcode/uxtop.c
+++ b/v7/src/microcode/uxtop.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: uxtop.c,v 1.11 1993/08/03 08:30:09 gjr Exp $
+$Id: uxtop.c,v 1.12 1993/11/09 19:06:14 gjr Exp $
 
 Copyright (c) 1990-1993 Massachusetts Institute of Technology
 
@@ -227,7 +227,7 @@ DEFUN (OS_error_code_to_syserr, (code), int code)
     case ENOSPC:	return (syserr_no_space_left_on_device);
     case ENOSYS:	return (syserr_function_not_implemented);
     case ENOTDIR:	return (syserr_not_a_directory);
-#ifdef ENOTEMPTY
+#if defined(ENOTEMPTY) && (ENOTEMPTY != EEXIST)
     case ENOTEMPTY:	return (syserr_directory_not_empty);
 #endif
     case ENOTTY:	return (syserr_inappropriate_io_control_operation);