summaryrefslogtreecommitdiff
path: root/libguile/srfi-60.c
diff options
context:
space:
mode:
authorRob Browning <rlb@defaultvalue.org>2011-04-23 14:57:49 -0500
committerAndy Wingo <wingo@pobox.com>2012-01-09 15:42:28 +0100
commit7b87f5de55392f038f19b21c6d6c129272cb431d (patch)
tree569ccb3ce8c0a7e57e6fc4f7fbff1e71b8c2cfc2 /libguile/srfi-60.c
parent8f47877fc7a9f36ffcfba7d63c5cdf8ebe40347a (diff)
downloadguile-7b87f5de55392f038f19b21c6d6c129272cb431d.tar.gz
Fix the SRFI 60 copy-bit documentation.
Diffstat (limited to 'libguile/srfi-60.c')
-rw-r--r--libguile/srfi-60.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/srfi-60.c b/libguile/srfi-60.c
index 264f4cbd5..1ed3c9e81 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))
{