[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-6-ge006d87

[Mark H Weaver]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=e006d87ba5942b6e49b39b951413dfe63785a398

The branch, stable-2.0 has been updated
       via  e006d87ba5942b6e49b39b951413dfe63785a398 (commit)
      from  72d4abda1d2766096d246a2c0fe75c1522782934 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit e006d87ba5942b6e49b39b951413dfe63785a398
Author: Mark H Weaver <address@hidden>
Date:   Sun Apr 14 13:36:20 2013 -0400

    Manual: fix 'my-or' examples to use let-bound variable.
    
    Fixes <http://bugs.gnu.org/14203> reported by Nikita Karetnikov.
    
    * doc/ref/api-macros.texi (Defining Macros, Syntax Rules): Fix
      definition of 'my-or' example macro to use the let-bound variable.

-----------------------------------------------------------------------

Summary of changes:
 doc/ref/api-macros.texi |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/doc/ref/api-macros.texi b/doc/ref/api-macros.texi
index ea4e8d6..a3fa83f 100644
--- a/doc/ref/api-macros.texi
+++ b/doc/ref/api-macros.texi
@@ -122,8 +122,8 @@ same @var{letrec-syntax}.
                     exp)
                    ((my-or exp rest ...)
                     (let ((t exp))
-                      (if exp
-                          exp
+                      (if t
+                          t
                           (my-or rest ...)))))))
   (my-or #f "rockaway beach"))
 @result{} "rockaway beach"
@@ -323,8 +323,8 @@ Consider the definition of @code{my-or} from the previous 
section:
      exp)
     ((my-or exp rest ...)
      (let ((t exp))
-       (if exp
-           exp
+       (if t
+           t
            (my-or rest ...))))))
 @end example
 


hooks/post-receive
-- 
GNU Guile