bug#65132: closed ([PATCH] fix cond1 macro)

[GNU bug Tracking System]

Your message dated Fri, 29 Sep 2023 19:02:39 +0200
with message-id <F686B06A-6AD6-40BE-8745-CE8048A6E445@sarc.name>
and subject line ...
has caused the debbugs.gnu.org bug report #65132,
regarding [PATCH] fix cond1 macro
to be marked as done.

(If you believe you have received this mail in error, please contact
help-debbugs@gnu.org.)


-- 
65132: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=65132
GNU Bug Tracking System
Contact help-debbugs@gnu.org with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> [PATCH] fix cond1 macro
>
>
>
>
> Date: 
>
> Mon, 07 Aug 2023 18:27:05 +0000
>
>
>
>
> >From ab6e4980ea301b5d1e14a98464e5de3e726984f1 Mon Sep 17 00:00:00 2001
> From: Ekaitz Zarraga <ekaitz@elenq.tech>
> Date: Mon, 7 Aug 2023 20:23:42 +0200
> Subject: [PATCH] fix cond1 macro
>
> * doc/ref/api-macros.texi (Macros): Fix doc1 macro example
> ---
>  doc/ref/api-macros.texi | 6 +++---
>  1 file changed, 3 insertions(+), 3 deletions(-)
>
> diff --git a/doc/ref/api-macros.texi b/doc/ref/api-macros.texi
> index 7fdf578c7..f13ac0136 100644
> --- a/doc/ref/api-macros.texi
> +++ b/doc/ref/api-macros.texi
> @@ -229,10 +229,10 @@ Literals are used to match specific datums in an 
> expression, like the use of
>      ((cond1 test => fun)
>       (let ((exp test))
>         (if exp (fun exp) #f)))
> -    ((cond1 test exp exp* ...)
> -     (if test (begin exp exp* ...)))
>      ((cond1 else exp exp* ...)
> -     (begin exp exp* ...))))
> +     (begin exp exp* ...))
> +    ((cond1 test exp exp* ...)
> +     (if test (begin exp exp* ...)))))
>  
>  (define (square x) (* x x))
>  (cond1 10 => square)
> -- 
> 2.41.0
>
>
>
>
>
> --- End Message ---
> --- Begin Message ---
>
>
>
> Subject: 
>
> ...
>
>
>
>
> Date: 
>
> Fri, 29 Sep 2023 19:02:39 +0200
>
>
>
>
> Patch applied in 1e3b5390e3c24e66013118e9751db4de5025a4a2.
>
> Thanks,
>
>   Daniel
>
>
> --- End Message ---