(no subject)

[Hyperdivision]

Subject: guile-core (cvs) patch

patch to get guile-cvs to build with gcc-cvs

diff -Naur guile-core.orig/libguile/num2integral.i.c 
guile-core/libguile/num2integral.i.c
--- guile-core.orig/libguile/num2integral.i.c   2004-02-17 18:25:39.000000000 
-0600
+++ guile-core/libguile/num2integral.i.c        2004-04-16 08:25:43.000000000 
-0500
@@ -79,14 +79,14 @@
       else
         {
           /* make sure the result will fit */
-          if (BIGMPZ_FITSP)
+#ifdef BIGMPZ_FITSP
             {
               int fits_p = BIGMPZ_FITSP (SCM_I_BIG_MPZ (num));
               scm_remember_upto_here_1 (num);
               if (!fits_p)
                 scm_out_of_range (s_caller, num);
             }
-          else
+#else
             {
               size_t numbits;
               if (UNSIGNED)
@@ -102,6 +102,7 @@
               if (numbits > (sizeof (ITYPE) * SCM_CHAR_BIT))
                 scm_out_of_range (s_caller, num);
             }
+#endif
           
           if (UNSIGNED && (SIZEOF_ITYPE <= SIZEOF_UNSIGNED_LONG))
             {
diff -Naur guile-core.orig/libguile/socket.c guile-core/libguile/socket.c
--- guile-core.orig/libguile/socket.c   2003-04-16 14:45:01.000000000 -0500
+++ guile-core/libguile/socket.c        2004-04-16 09:31:45.000000000 -0500
@@ -408,7 +408,7 @@
    else\
    {\
       SCM_VALIDATE_BIGINT (which_arg, address);\
-      SCM_ASSERT_RANGE (which_arg, address, bignum_in_ipv6_range_p);\
+      SCM_ASSERT_RANGE (which_arg, address, bignum_in_ipv6_range_p(address));\
    }
 
 #ifdef HAVE_INET_PTON
diff -Naur guile-core.orig/libguile/threads.c guile-core/libguile/threads.c
--- guile-core.orig/libguile/threads.c  2004-03-03 10:53:13.000000000 -0600
+++ guile-core/libguile/threads.c       2004-04-16 08:33:04.000000000 -0500
@@ -443,7 +443,7 @@
 "Move the calling thread to the end of the scheduling queue.")
 #define FUNC_NAME s_scm_yield
 {
-  return SCM_BOOL (scm_thread_yield);
+  return SCM_BOOL (scm_thread_yield());
 }
 #undef FUNC_NAME
 
diff -Naur guile-core.orig/libguile/unif.c guile-core/libguile/unif.c
--- guile-core.orig/libguile/unif.c     2004-02-13 17:15:37.000000000 -0600
+++ guile-core/libguile/unif.c  2004-04-16 08:33:52.000000000 -0500
@@ -137,7 +137,7 @@
     }
 }
 
-static const char s_scm_make_uve[];
+/*static const char s_scm_make_uve[];*/
 
 static SCM
 make_uve (long type, long k, size_t size)