GNU bug report logs - #65132
[PATCH] fix cond1 macro

Previous Next

Package: guile;

Reported by: Ekaitz Zarraga <ekaitz <at> elenq.tech>

Date: Mon, 7 Aug 2023 18:28:01 UTC

Severity: normal

Tags: patch

Done: lloda <lloda <at> sarc.name>

Bug is archived. No further changes may be made.

Full log


View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: lloda <lloda <at> sarc.name>
Cc: tracker <at> debbugs.gnu.org
Subject: bug#65132: closed ([PATCH] fix cond1 macro)
Date: Fri, 29 Sep 2023 17:04:01 +0000
[Message part 1 (text/plain, inline)]
Your message dated Fri, 29 Sep 2023 19:02:39 +0200
with message-id <F686B06A-6AD6-40BE-8745-CE8048A6E445 <at> 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 <at> gnu.org.)


-- 
65132: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=65132
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems
[Message part 2 (message/rfc822, inline)]
From: Ekaitz Zarraga <ekaitz <at> elenq.tech>
To: "bug-guile <at> gnu.org" <bug-guile <at> gnu.org>
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 <at> 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




[Message part 3 (message/rfc822, inline)]
From: lloda <lloda <at> sarc.name>
To: 65132-done <at> debbugs.gnu.org
Subject: ...
Date: Fri, 29 Sep 2023 19:02:39 +0200
Patch applied in 1e3b5390e3c24e66013118e9751db4de5025a4a2.

Thanks,

  Daniel


This bug report was last modified 1 year and 230 days ago.

Previous Next


GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.