From 49acac79a124f88511cbe9743e64fc97e6100c35 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Sat, 23 Sep 2006 01:43:59 +0000
Subject: [PATCH] Crib not on dirfd.m4 if we need/want dirfd everywhere in the
 future.

---
 libguile/filesys.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/libguile/filesys.c b/libguile/filesys.c
index 3ad981715..72b45e92a 100644
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -203,9 +203,11 @@ void *alloca (size_t);
 /* dirfd() returns the file descriptor underlying a "DIR*" directory stream.
    Found on MacOS X for instance.  The following definition is for Solaris
    10, it's probably not right elsewhere, but that's ok, it shouldn't be
-   used elsewhere.  */
+   used elsewhere.  Crib note: If we need more then gnulib has a dirfd.m4
+   figuring out how to get the fd (dirfd function, dirfd macro, dd_fd field,
+   or d_fd field).  */
 #ifndef dirfd
-#define dirfd(dirstream) (dirstream->dd_fd)
+#define dirfd(dirstream) ((dirstream)->dd_fd)
 #endif