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

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

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

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;
 

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);