Subject: bug#65132: closed (...)

From: [email-masked] (GNU bug Tracking System)
Date: Fri, 29 Sep 2023 17:04:02 +0000

Your bug report

#65132: [PATCH] fix cond1 macro

which was filed against the guile package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
65132: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=65132
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: ...
From: lloda <[email-masked]>
To: [email-masked]
Date: Fri, 29 Sep 2023 19:02:39 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

Patch applied in 1e3b5390e3c24e66013118e9751db4de5025a4a2.

Thanks,

  Daniel

Subject: [PATCH] fix cond1 macro
From: Ekaitz Zarraga <[email-masked]>
To: "[email-masked]" <[email-masked]>
Date: Mon, 07 Aug 2023 18:27:05 +0000
List-Id: <debbugs-submit.debbugs.gnu.org>

>From ab6e4980ea301b5d1e14a98464e5de3e726984f1 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <[email-masked]>
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