mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* numbers.c (scm_logand, scm_logior, scm_logxor): adjusted the

Browse source 
docstrings to reflect the n-ary implementation.
This commit is contained in:
Gary Houston 2001-07-25 22:37:05 +00:00
parent dd29a16921
commit 3c3db1289a
2 changed files with 23 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2001-07-25 Gary Houston <ghouston@arglist.com>
* numbers.c (scm_logand, scm_logior, scm_logxor): adjusted the
docstrings to reflect the n-ary implementation.
2001-07-26 Marius Vollmer <mvo@zagadka.ping.de> 2001-07-26 Marius Vollmer <mvo@zagadka.ping.de>
* eval.c (scm_ceval, scm_deval): Use "RETURN" macro when returning * eval.c (scm_ceval, scm_deval): Use "RETURN" macro when returning

38
libguile/numbers.c
View file

@ -738,16 +738,14 @@ SCM scm_big_test(SCM_BIGDIG *x, size_t nx, int xsgn, SCM bigy)
#endif #endif
SCM_DEFINE1 (scm_logand, "logand", scm_tc7_asubr, SCM_DEFINE1 (scm_logand, "logand", scm_tc7_asubr,
(SCM n1, SCM n2), (SCM n1, SCM n2),
"Return the integer which is the bit-wise AND of the two integer\n" "Return the bitwise AND of the integer arguments.\n\n"
"arguments.\n" "@lisp\n"
"\n" "(logand) @result{} -1\n"
"@lisp\n" "(logand 7) @result{} 7\n"
"(number->string (logand #b1100 #b1010) 2)\n" "(logand #b111 #b011 #\b001) @result{} 1\n"
" @result{} \"1000\"\n" "@end lisp")
"@end lisp")
#define FUNC_NAME s_scm_logand #define FUNC_NAME s_scm_logand
{ {
long int nn1; long int nn1;
@ -828,12 +826,11 @@ SCM_DEFINE1 (scm_logand, "logand", scm_tc7_asubr,
SCM_DEFINE1 (scm_logior, "logior", scm_tc7_asubr, SCM_DEFINE1 (scm_logior, "logior", scm_tc7_asubr,
(SCM n1, SCM n2), (SCM n1, SCM n2),
"Return the integer which is the bit-wise OR of the two integer\n" "Return the bitwise OR of the integer arguments.\n\n"
"arguments.\n" "@lisp\n"
"\n" "(logior) @result{} 0\n"
"@lisp\n" "(logior 7) @result{} 7\n"
"(number->string (logior #b1100 #b1010) 2)\n" "(logior #b000 #b001 #b011) @result{} 3\n"
" @result{} \"1110\"\n"
"@end lisp") "@end lisp")
#define FUNC_NAME s_scm_logior #define FUNC_NAME s_scm_logior
{ {
@ -914,12 +911,13 @@ SCM_DEFINE1 (scm_logior, "logior", scm_tc7_asubr,
SCM_DEFINE1 (scm_logxor, "logxor", scm_tc7_asubr, SCM_DEFINE1 (scm_logxor, "logxor", scm_tc7_asubr,
(SCM n1, SCM n2), (SCM n1, SCM n2),
"Return the integer which is the bit-wise XOR of the two integer\n" "Return the bitwise XOR of the integer arguments. A bit is\n"
"arguments.\n" "set in the result if it is set in an odd number of arguments.\n"
"\n" "@lisp\n"
"@lisp\n" "(logxor) @result{} 0\n"
"(number->string (logxor #b1100 #b1010) 2)\n" "(logxor 7) @result{} 7\n"
" @result{} \"110\"\n" "(logxor #b000 #b001 #b011) @result{} 2\n"
"(logxor #b000 #b001 #b011 #b011) @result{} 1\n"
"@end lisp") "@end lisp")
#define FUNC_NAME s_scm_logxor #define FUNC_NAME s_scm_logxor
{ {