[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile ChangeLog numbers.c
From: |
Gary Houston |
Subject: |
guile/guile-core/libguile ChangeLog numbers.c |
Date: |
Wed, 25 Jul 2001 15:39:44 -0700 |
CVSROOT: /cvs
Module name: guile
Branch: branch_release-1-6
Changes by: Gary Houston <address@hidden> 01/07/25 15:39:44
Modified files:
guile-core/libguile: ChangeLog numbers.c
Log message:
* numbers.c (scm_logand, scm_logior, scm_logxor): adjusted the
docstrings to reflect the n-ary implementation.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/ChangeLog.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.1465.2.8&tr2=1.1465.2.9&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/numbers.c.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.135.2.1&tr2=1.135.2.2&r1=text&r2=text
Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1479
guile/guile-core/libguile/ChangeLog:1.1480
--- guile/guile-core/libguile/ChangeLog:1.1479 Wed Jul 25 15:01:50 2001
+++ guile/guile-core/libguile/ChangeLog Wed Jul 25 15:37:05 2001
@@ -1,3 +1,8 @@
+2001-07-25 Gary Houston <address@hidden>
+
+ * numbers.c (scm_logand, scm_logior, scm_logxor): adjusted the
+ docstrings to reflect the n-ary implementation.
+
2001-07-26 Marius Vollmer <address@hidden>
* eval.c (scm_ceval, scm_deval): Use "RETURN" macro when returning
Index: guile/guile-core/libguile/numbers.c
diff -u guile/guile-core/libguile/numbers.c:1.136
guile/guile-core/libguile/numbers.c:1.137
--- guile/guile-core/libguile/numbers.c:1.136 Mon Jul 9 00:36:47 2001
+++ guile/guile-core/libguile/numbers.c Wed Jul 25 15:37:05 2001
@@ -738,16 +738,14 @@
#endif
-
SCM_DEFINE1 (scm_logand, "logand", scm_tc7_asubr,
(SCM n1, SCM n2),
- "Return the integer which is the bit-wise AND of the two integer\n"
- "arguments.\n"
- "\n"
- "@lisp\n"
- "(number->string (logand #b1100 #b1010) 2)\n"
- " @result{} \"1000\"\n"
- "@end lisp")
+ "Return the bitwise AND of the integer arguments.\n\n"
+ "@lisp\n"
+ "(logand) @result{} -1\n"
+ "(logand 7) @result{} 7\n"
+ "(logand #b111 #b011 #\b001) @result{} 1\n"
+ "@end lisp")
#define FUNC_NAME s_scm_logand
{
long int nn1;
@@ -828,12 +826,11 @@
SCM_DEFINE1 (scm_logior, "logior", scm_tc7_asubr,
(SCM n1, SCM n2),
- "Return the integer which is the bit-wise OR of the two integer\n"
- "arguments.\n"
- "\n"
- "@lisp\n"
- "(number->string (logior #b1100 #b1010) 2)\n"
- " @result{} \"1110\"\n"
+ "Return the bitwise OR of the integer arguments.\n\n"
+ "@lisp\n"
+ "(logior) @result{} 0\n"
+ "(logior 7) @result{} 7\n"
+ "(logior #b000 #b001 #b011) @result{} 3\n"
"@end lisp")
#define FUNC_NAME s_scm_logior
{
@@ -914,12 +911,13 @@
SCM_DEFINE1 (scm_logxor, "logxor", scm_tc7_asubr,
(SCM n1, SCM n2),
- "Return the integer which is the bit-wise XOR of the two integer\n"
- "arguments.\n"
- "\n"
- "@lisp\n"
- "(number->string (logxor #b1100 #b1010) 2)\n"
- " @result{} \"110\"\n"
+ "Return the bitwise XOR of the integer arguments. A bit is\n"
+ "set in the result if it is set in an odd number of arguments.\n"
+ "@lisp\n"
+ "(logxor) @result{} 0\n"
+ "(logxor 7) @result{} 7\n"
+ "(logxor #b000 #b001 #b011) @result{} 2\n"
+ "(logxor #b000 #b001 #b011 #b011) @result{} 1\n"
"@end lisp")
#define FUNC_NAME s_scm_logxor
{