guile/guile-core/libguile ChangeLog filesys.c p...

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   00/09/30 08:51:50

Modified files:
        guile-core/libguile: ChangeLog filesys.c posix.c 

Log message:
        * filesys.c (scm_stat2scm), posix.c (s_scm_mknod): don't use
        S_ISSOCK or S_IFSOCK if not defined.  thanks to Bruce Korb.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1128&r2=1.1129
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/filesys.c.diff?r1=1.80&r2=1.81
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/posix.c.diff?r1=1.71&r2=1.72

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1128 
guile/guile-core/libguile/ChangeLog:1.1129
--- guile/guile-core/libguile/ChangeLog:1.1128  Fri Sep 29 13:33:13 2000
+++ guile/guile-core/libguile/ChangeLog Sat Sep 30 08:51:49 2000
@@ -1,3 +1,8 @@
+2000-09-30  Gary Houston  <address@hidden>
+
+       * 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  <address@hidden>
 
        * Makefile.am (guile-procedures.txt): Insert a new rule such that
Index: guile/guile-core/libguile/filesys.c
diff -u guile/guile-core/libguile/filesys.c:1.80 
guile/guile-core/libguile/filesys.c:1.81
--- guile/guile-core/libguile/filesys.c:1.80    Fri Aug 18 10:12:37 2000
+++ guile/guile-core/libguile/filesys.c Sat Sep 30 08:51:49 2000
@@ -398,8 +398,10 @@
       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;
 
Index: guile/guile-core/libguile/posix.c
diff -u guile/guile-core/libguile/posix.c:1.71 
guile/guile-core/libguile/posix.c:1.72
--- guile/guile-core/libguile/posix.c:1.71      Fri Sep 22 10:17:55 2000
+++ guile/guile-core/libguile/posix.c   Sat Sep 30 08:51:49 2000
@@ -1226,8 +1226,10 @@
     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);