mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

Fix the SRFI 60 copy-bit documentation.

Browse source
This commit is contained in:
Rob Browning 2011-04-23 14:57:49 -05:00 • committed by Andy Wingo
parent 8f47877fc7
commit 7b87f5de55
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/srfi-60.c
View file

@ -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_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" "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" "@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" "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; int bb;
ii = scm_to_ulong (index); ii = scm_to_ulong (index);
bb = scm_to_bool (bit); bb = scm_to_bool (newbit);
if (SCM_I_INUMP (n)) if (SCM_I_INUMP (n))
{ {