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.
7 srfi/srfi-60.c | 4 ++--
8 1 file changed, 2 insertions(+), 2 deletions(-)
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,
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,
26 ii = scm_to_ulong (index);
27 - bb = scm_to_bool (bit);
28 + bb = scm_to_bool (newbit);