guile-cvs
[Top][All Lists]
Advanced

[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:37:05 -0700

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   01/07/25 15:37:05

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&tr1=1.1479&tr2=1.1480&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/numbers.c.diff?cvsroot=OldCVS&tr1=1.136&tr2=1.137&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
 {



reply via email to

[Prev in Thread] Current Thread [Next in Thread]