diff options
author | Mark H Weaver <mhw@netris.org> | 2013-04-14 13:36:20 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2013-04-14 13:38:28 -0400 |
commit | e006d87ba5942b6e49b39b951413dfe63785a398 (patch) | |
tree | 4a0014c6fc6a4cbb290400cb323962c641122c1f /doc/ref/api-macros.texi | |
parent | 72d4abda1d2766096d246a2c0fe75c1522782934 (diff) | |
download | guile-e006d87ba5942b6e49b39b951413dfe63785a398.tar.gz |
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.
Diffstat (limited to 'doc/ref/api-macros.texi')
-rw-r--r-- | 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 ea4e8d68a..a3fa83f5a 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 |