debian/patches/0003-Fix-the-SRFI-60-copy-bit-documentation.patch

   1 From 45f900bd1974431bbae64538e0994290d051a5a2 Mon Sep 17 00:00:00 2001
   2 From: Rob Browning <rlb@defaultvalue.org>
   3 Date: Sat, 23 Apr 2011 14:57:49 -0500
   4 Subject: Fix the SRFI 60 copy-bit documentation.
   5
   6 ---
   7  srfi/srfi-60.c | 4 ++--
   8  1 file changed, 2 insertions(+), 2 deletions(-)
   9
  10 diff --git a/guile18/srfi/srfi-60.c b/guile18/srfi/srfi-60.c
  11 index a91cb50..2b7c27c 100644
  12 --- a/guile18/srfi/srfi-60.c
  13 +++ b/guile18/srfi/srfi-60.c
  14 @@ -63,7 +63,7 @@ SCM_DEFINE (scm_srfi60_log2_binary_factors, "log2-binary-factors", 1, 0, 0,
  15
  16
  17  SCM_DEFINE (scm_srfi60_copy_bit, "copy-bit", 3, 0, 0,
  18 -            (SCM index, SCM n, SCM bit),
  19 +            (SCM index, SCM n, SCM newbit),
  20             "Return @var{n} with the bit at @var{index} set according to\n"
  21             "@var{newbit}.  @var{newbit} should be @code{#t} to set the bit\n"
  22             "to 1, or @code{#f} to set it to 0.  Bits other than at\n"
  23 @@ -79,7 +79,7 @@ SCM_DEFINE (scm_srfi60_copy_bit, "copy-bit", 3, 0, 0,
  24    int bb;
  25
  26    ii = scm_to_ulong (index);
  27 -  bb = scm_to_bool (bit);
  28 +  bb = scm_to_bool (newbit);
  29
  30    if (SCM_I_INUMP (n))
  31      {