From 8c907c498df78234f9aa27c6819924aac9c50107 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 29 May 2001 14:39:22 +0000
Subject: [PATCH] fix S_ISREG and S_ISDIR for Unix machines

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@46 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 library/system/sys.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/library/system/sys.c b/library/system/sys.c
index 787a8ca19..fb01c4606 100644
--- a/library/system/sys.c
+++ b/library/system/sys.c
@@ -244,9 +244,9 @@ file_property(void)
     /* return an error number */
     return(unify(ARG6, MkIntTerm(errno)));
   }
-  if (buf.st_mode & _S_IFREG) 
+  if (S_ISREG(buf.st_mode)) 
     unify(ARG2, MkAtomTerm(LookupAtom("regular")));
-  else if (buf.st_mode & _S_IFDIR) 
+  else if (S_ISDIR(buf.st_mode)) 
     unify(ARG2, MkAtomTerm(LookupAtom("directory")));
   else if (S_ISFIFO(buf.st_mode)) 
     unify(ARG2, MkAtomTerm(LookupAtom("fifo")));