From 8d1dd1a137de1cc486c6e745a01616feb8fa471a Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Fri, 19 May 2006 23:45:03 +0000
Subject: [PATCH] (scm_mknod): Test #ifdef S_IFLNK before using that (for
 symlink).  Probably can't create symlinks with mknod anyway though.

---
 libguile/posix.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/libguile/posix.c b/libguile/posix.c
index 1bb278498..a96dabcfa 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -1428,8 +1428,11 @@ SCM_DEFINE (scm_mknod, "mknod", 4, 0, 0,
     ctype = S_IFREG;
   else if (strcmp (p, "directory") == 0)
     ctype = S_IFDIR;
+#ifdef S_IFLNK
+  /* systems without symlinks probably don't have S_IFLNK defined */
   else if (strcmp (p, "symlink") == 0)
     ctype = S_IFLNK;
+#endif
   else if (strcmp (p, "block-special") == 0)
     ctype = S_IFBLK;
   else if (strcmp (p, "char-special") == 0)