* filesys.c (scm_stat2scm), posix.c (s_scm_mknod): don't use

	S_ISSOCK or S_IFSOCK if not defined.  thanks to Bruce Korb.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index c096c0f..c1a62e7 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-30  Gary Houston  <ghouston@arglist.com>
+
+       * filesys.c (scm_stat2scm), posix.c (s_scm_mknod): don't use
+       S_ISSOCK or S_IFSOCK if not defined.  thanks to Bruce Korb.
+
 2000-09-29  Neil Jerram  <neil@ossau.uklinux.net>
 
        * Makefile.am (guile-procedures.txt): Insert a new rule such that

diff --git a/libguile/filesys.c b/libguile/filesys.c
index d2a8672..4a2c676 100644 (file)
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -398,8 +398,10 @@ scm_stat2scm (struct stat *stat_temp)
       ve[13] = scm_sym_char_special;
     else if (S_ISFIFO (mode))
       ve[13] = scm_sym_fifo;
+#ifdef S_ISSOCK
     else if (S_ISSOCK (mode))
       ve[13] = scm_sym_sock;
+#endif
     else
       ve[13] = scm_sym_unknown;
 

diff --git a/libguile/posix.c b/libguile/posix.c
index 107de55..2d9d980 100644 (file)
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -1226,8 +1226,10 @@ SCM_DEFINE (scm_mknod, "mknod", 4, 0, 0,
     ctype = S_IFCHR;
   else if (strcmp (p, "fifo") == 0)
     ctype = S_IFIFO;
+#ifdef S_IFSOCK
   else if (strcmp (p, "socket") == 0)
     ctype = S_IFSOCK;
+#endif
   else
     SCM_OUT_OF_RANGE (2,type);