guile/guile-core/libguile net_db.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/11/01 19:16:28

Modified files:
        guile-core/libguile: net_db.c 

Log message:
        Disable extern declaration of `h_errno' for __CYGWIN__,
        too.
        Put `scm_return_entry()' into HAVE_GETSERVENT conditional.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/net_db.c.diff?cvsroot=OldCVS&tr1=1.64&tr2=1.65&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/net_db.c
diff -u guile/guile-core/libguile/net_db.c:1.64 
guile/guile-core/libguile/net_db.c:1.65
--- guile/guile-core/libguile/net_db.c:1.64     Fri Aug 31 10:42:31 2001
+++ guile/guile-core/libguile/net_db.c  Thu Nov  1 19:16:28 2001
@@ -74,7 +74,7 @@
 #include <arpa/inet.h>
 #endif
 
-#if !defined (HAVE_H_ERRNO) && !defined (__MINGW32__)
+#if !defined (HAVE_H_ERRNO) && !defined (__MINGW32__) && !defined (__CYGWIN__)
 /* h_errno not found in netdb.h, maybe this will help.  */
 extern int h_errno;
 #endif
@@ -314,6 +314,7 @@
 #undef FUNC_NAME
 #endif
 
+#ifdef HAVE_GETSERVENT
 static SCM
 scm_return_entry (struct servent *entry)
 {
@@ -329,7 +330,6 @@
   return ans;
 }
 
-#ifdef HAVE_GETSERVENT
 SCM_DEFINE (scm_getserv, "getserv", 0, 2, 0,
             (SCM name, SCM protocol),
            "@deffnx procedure getservbyname name protocol\n"