[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-124-g9858e52

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=9858e529621193222a28b7ee0e53a428aa007363

The branch, stable-2.0 has been updated
       via  9858e529621193222a28b7ee0e53a428aa007363 (commit)
       via  7b87f5de55392f038f19b21c6d6c129272cb431d (commit)
      from  8f47877fc7a9f36ffcfba7d63c5cdf8ebe40347a (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 9858e529621193222a28b7ee0e53a428aa007363
Author: Rob Browning <address@hidden>
Date:   Sat Apr 23 14:57:50 2011 -0500

    Define _GNU_SOURCE to fix the GNU/kFreeBSD build.
    
    Author: Petr Salinger <address@hidden>
    Closes: #401168

commit 7b87f5de55392f038f19b21c6d6c129272cb431d
Author: Rob Browning <address@hidden>
Date:   Sat Apr 23 14:57:49 2011 -0500

    Fix the SRFI 60 copy-bit documentation.

-----------------------------------------------------------------------

Summary of changes:
 libguile/fports.c  |    1 +
 libguile/srfi-60.c |    4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/libguile/fports.c b/libguile/fports.c
index 1348b8b..3ac3ced 100644
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -20,6 +20,7 @@
 
 
 #define _LARGEFILE64_SOURCE      /* ask for stat64 etc */
+#define _GNU_SOURCE              /* ask for LONG_LONG_MAX/LONG_LONG_MIN */
 
 #ifdef HAVE_CONFIG_H
 #  include <config.h>
diff --git a/libguile/srfi-60.c b/libguile/srfi-60.c
index 264f4cb..1ed3c9e 100644
--- a/libguile/srfi-60.c
+++ b/libguile/srfi-60.c
@@ -70,7 +70,7 @@ SCM_DEFINE (scm_srfi60_log2_binary_factors, 
"log2-binary-factors", 1, 0, 0,
 
 
 SCM_DEFINE (scm_srfi60_copy_bit, "copy-bit", 3, 0, 0,
-            (SCM index, SCM n, SCM bit),
+            (SCM index, SCM n, SCM newbit),
            "Return @var{n} with the bit at @var{index} set according to\n"
            "@var{newbit}.  @var{newbit} should be @code{#t} to set the bit\n"
            "to 1, or @code{#f} to set it to 0.  Bits other than at\n"
@@ -86,7 +86,7 @@ SCM_DEFINE (scm_srfi60_copy_bit, "copy-bit", 3, 0, 0,
   int bb;
 
   ii = scm_to_ulong (index);
-  bb = scm_to_bool (bit);
+  bb = scm_to_bool (newbit);
 
   if (SCM_I_INUMP (n))
     {


hooks/post-receive
-- 
GNU Guile