From unknown Sun Jun 15 08:57:44 2025 X-Loop: help-debbugs@gnu.org Subject: bug#65132: [PATCH] fix cond1 macro Resent-From: Ekaitz Zarraga Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Mon, 07 Aug 2023 18:28:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 65132 X-GNU-PR-Package: guile X-GNU-PR-Keywords: patch To: 65132@debbugs.gnu.org X-Debbugs-Original-To: "bug-guile@gnu.org" Received: via spool by submit@debbugs.gnu.org id=B.169143286322404 (code B ref -1); Mon, 07 Aug 2023 18:28:01 +0000 Received: (at submit) by debbugs.gnu.org; 7 Aug 2023 18:27:43 +0000 Received: from localhost ([127.0.0.1]:34334 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qT4xC-0005pI-KN for submit@debbugs.gnu.org; Mon, 07 Aug 2023 14:27:42 -0400 Received: from lists.gnu.org ([2001:470:142::17]:49492) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qT4xA-0005oJ-7D for submit@debbugs.gnu.org; Mon, 07 Aug 2023 14:27:40 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qT4x4-0001Cn-W7 for bug-guile@gnu.org; Mon, 07 Aug 2023 14:27:35 -0400 Received: from mail-4323.proton.ch ([185.70.43.23]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qT4x1-00048E-4f for bug-guile@gnu.org; Mon, 07 Aug 2023 14:27:34 -0400 Date: Mon, 07 Aug 2023 18:27:05 +0000 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=elenq.tech; s=protonmail2; t=1691432840; x=1691692040; bh=YYEWwPWYHLZ5vt30JGei3QzM3cKM/L0erEXaDF/PBrU=; h=Date:To:From:Subject:Message-ID:Feedback-ID:From:To:Cc:Date: Subject:Reply-To:Feedback-ID:Message-ID:BIMI-Selector; b=crZks532ojAx3GjRuPoMcnNopKfyXvHbVKDk4kEV7OTORDkBougsQDtf2kBIqH0bH 50wylVgdhdpqFzRm7f3TQU8VLf647IoQH2dm+/sbRQ/lXndT8EWWXGLa/1ZYXY+g/Q 0u2jddOIKcDl6/HGMlXuCrey6JjcUbKAkX8xARItpOSPjkIKrxDCuqiqztZC56qNQL WZEpsq8U5RqLuH7tnOA9Cp274UI0sPyDNLW2OX9ecqolvLWrHFujh4l098H02JY3kg VbDRDE7IWoM7Mt7a35HgSwJ5vZfimMY1NucPJ6XfOwHUx1MwiMu38O1Tf8XGyqOJ1I H6qD4YqFv2DFA== From: Ekaitz Zarraga Message-ID: Feedback-ID: 3263582:user:proton MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Received-SPF: pass client-ip=185.70.43.23; envelope-from=ekaitz@elenq.tech; helo=mail-4323.proton.ch X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_MSPIKE_H5=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: 1.0 (+) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.0 (/) >From ab6e4980ea301b5d1e14a98464e5de3e726984f1 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga 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 expr= ession, like the use of ((cond1 test =3D> 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* ...))))) =20 (define (square x) (* x x)) (cond1 10 =3D> square) --=20 2.41.0 From unknown Sun Jun 15 08:57:44 2025 X-Loop: help-debbugs@gnu.org Subject: bug#65132: [PATCH] fix cond1 macro Resent-From: Timothy Sample Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Mon, 07 Aug 2023 20:17:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 65132 X-GNU-PR-Package: guile X-GNU-PR-Keywords: patch To: Ekaitz Zarraga Cc: 65132@debbugs.gnu.org Received: via spool by 65132-submit@debbugs.gnu.org id=B65132.16914393631913 (code B ref 65132); Mon, 07 Aug 2023 20:17:01 +0000 Received: (at 65132) by debbugs.gnu.org; 7 Aug 2023 20:16:03 +0000 Received: from localhost ([127.0.0.1]:34467 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qT6e3-0000Um-IU for submit@debbugs.gnu.org; Mon, 07 Aug 2023 16:16:03 -0400 Received: from wout1-smtp.messagingengine.com ([64.147.123.24]:36711) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qT6dz-0000Tw-7b for 65132@debbugs.gnu.org; Mon, 07 Aug 2023 16:16:02 -0400 Received: from compute5.internal (compute5.nyi.internal [10.202.2.45]) by mailout.west.internal (Postfix) with ESMTP id 1FC3E3200934; Mon, 7 Aug 2023 16:15:51 -0400 (EDT) Received: from mailfrontend2 ([10.202.2.163]) by compute5.internal (MEProxy); Mon, 07 Aug 2023 16:15:51 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=ngyro.com; h=cc :cc:content-transfer-encoding:content-type:content-type:date :date:from:from:in-reply-to:in-reply-to:message-id:mime-version :references:reply-to:sender:subject:subject:to:to; s=fm2; t= 1691439350; x=1691525750; bh=c2fZJd/sK/UTjHBs3rbOyYwIFUVe3ySFg+P tp2lSbVk=; b=aw4VjypDuqFRkjemsLIIPjeC31hWnBAeCRVGYOi38imKpnW4av5 m3D8XzGtH9DYrWn2Nl3xgtUBf2D9EzDCTWghtA22NHZeOPk7TwL9LVTwXaRyTBxp iVFjaEMJ9S46cKbpvPaVandVs/o4cirvSYiiOqPMlFdyTopaRrz0HHzLKs2TLljf d/phegxtl4JW1p0E63YEb416OcuMbzFU3FVsfcyT98z9Q1tCVmfQHfNlBPK0Onfy o9FvUpJNs8IZBaAkGwhRoCpSe6pbhK0HB7pZDG9ZJR4rdVnGCtwvYfwg71jDYS6r qgXwXroPLbjJufS8FXnnETuEq2kIeMqLEqQ== DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d= messagingengine.com; h=cc:cc:content-transfer-encoding :content-type:content-type:date:date:feedback-id:feedback-id :from:from:in-reply-to:in-reply-to:message-id:mime-version :references:reply-to:sender:subject:subject:to:to:x-me-proxy :x-me-proxy:x-me-sender:x-me-sender:x-sasl-enc; s=fm3; t= 1691439350; x=1691525750; bh=c2fZJd/sK/UTjHBs3rbOyYwIFUVe3ySFg+P tp2lSbVk=; b=M5GjnsUe5E0mFGLwPKDfhCy1nIKB3FXQQ8D9dni3R7RHMGu0ocn 3+Ucp+Etx6kZ5E3IPv5Hi+9xJsFpNqW2M1FUdiqoKYwCD4U4L0w+2TOVuziHMvHh 77TBLjmjP0Z80Ny1s5V3legw+TKF+X4jzkL+XON0OBqFaz2FRxG1IDOJjyYOkC+4 BRoeokmGnvUzlqFcXT7hLydpsFEKzboAVFHMWVPNwqlQ1XtF1ymQ/Uy0iyaDGA9f E+s9MNQ4aYlIRmEysSnLD5TrJmCaYknHAjdRseFbAnaAa65m2Kp7+BocTsH+COCL /g3ozJAARjFUc6ZXCV/snYJ3dSkRnI1GYsA== X-ME-Sender: X-ME-Received: X-ME-Proxy-Cause: gggruggvucftvghtrhhoucdtuddrgedviedrledtgddugedtucetufdoteggodetrfdotf fvucfrrhhofhhilhgvmecuhfgrshhtofgrihhlpdfqfgfvpdfurfetoffkrfgpnffqhgen uceurghilhhouhhtmecufedttdenucesvcftvggtihhpihgvnhhtshculddquddttddmne cujfgurhephffvvefufhffjgfkfgggtgfgsehtqhertddtreejnecuhfhrohhmpefvihhm ohhthhihucfurghmphhlvgcuoehsrghmphhlvghtsehnghihrhhordgtohhmqeenucggtf frrghtthgvrhhnpedtkeevgfekveegffehtdfgveetvddukeefffehvdevteegtdevudei gfeftdetvdenucevlhhushhtvghrufhiiigvpedtnecurfgrrhgrmhepmhgrihhlfhhroh hmpehsrghmphhlvghtsehnghihrhhordgtohhm X-ME-Proxy: Feedback-ID: i4721425c:Fastmail Received: by mail.messagingengine.com (Postfix) with ESMTPA; Mon, 7 Aug 2023 16:15:49 -0400 (EDT) From: Timothy Sample References: Date: Mon, 07 Aug 2023 14:15:47 -0600 In-Reply-To: (Ekaitz Zarraga's message of "Mon, 07 Aug 2023 18:27:05 +0000") Message-ID: <87bkfitxqk.fsf@ngyro.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -1.7 (-) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -2.7 (--) Hi all, Ekaitz Zarraga writes: > From ab6e4980ea301b5d1e14a98464e5de3e726984f1 Mon Sep 17 00:00:00 2001 > From: Ekaitz Zarraga > Date: Mon, 7 Aug 2023 20:23:42 +0200 > Subject: [PATCH] fix cond1 macro Just adding some context, as we talked about this on IRC. If you take the docs example as is, (define-syntax cond1 (syntax-rules (=3D> else) ((cond1 test =3D> 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* ...)))) and invoke it as (cond1 else #t) you get Syntax error: unknown location: else: bad use of 'else' syntactic keyword in subform else of else This is because =E2=80=98else=E2=80=99 matches the =E2=80=98(cond1 test exp= exp* ...)=E2=80=99 pattern and gets inserted as the test: (if else (begin #t)) This patch puts the more specific =E2=80=98else=E2=80=99 pattern before the= more general =E2=80=98test=E2=80=99 pattern so it has a chance to be matched. -- Tim From unknown Sun Jun 15 08:57:44 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.505 (Entity 5.505) X-Loop: help-debbugs@gnu.org From: help-debbugs@gnu.org (GNU bug Tracking System) To: Ekaitz Zarraga Subject: bug#65132: closed (...) Message-ID: References: X-Gnu-PR-Message: they-closed 65132 X-Gnu-PR-Package: guile X-Gnu-PR-Keywords: patch Reply-To: 65132@debbugs.gnu.org Date: Fri, 29 Sep 2023 17:04:02 +0000 Content-Type: multipart/mixed; boundary="----------=_1696007042-29279-1" This is a multi-part message in MIME format... ------------=_1696007042-29279-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" 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 65132@debbugs.gnu.org. --=20 65132: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D65132 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1696007042-29279-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 65132-done) by debbugs.gnu.org; 29 Sep 2023 17:03:04 +0000 Received: from localhost ([127.0.0.1]:57105 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qmGtM-0007as-DB for submit@debbugs.gnu.org; Fri, 29 Sep 2023 13:03:04 -0400 Received: from mta-09-4.privateemail.com ([198.54.127.118]:10138) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qmGtK-0007aC-41 for 65132-done@debbugs.gnu.org; Fri, 29 Sep 2023 13:03:02 -0400 Received: from mta-09.privateemail.com (localhost [127.0.0.1]) by mta-09.privateemail.com (Postfix) with ESMTP id C1A7718000B8 for <65132-done@debbugs.gnu.org>; Fri, 29 Sep 2023 13:02:41 -0400 (EDT) Received: from [192.168.1.9] (unknown [51.154.167.214]) by mta-09.privateemail.com (Postfix) with ESMTPA for <65132-done@debbugs.gnu.org>; Fri, 29 Sep 2023 13:02:41 -0400 (EDT) From: lloda Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Mime-Version: 1.0 (Mac OS X Mail 13.4 \(3608.120.23.2.7\)) Subject: ... Message-Id: Date: Fri, 29 Sep 2023 19:02:39 +0200 To: 65132-done@debbugs.gnu.org X-Mailer: Apple Mail (2.3608.120.23.2.7) X-Virus-Scanned: ClamAV using ClamSMTP X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 65132-done X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) Patch applied in 1e3b5390e3c24e66013118e9751db4de5025a4a2. Thanks, Daniel ------------=_1696007042-29279-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 7 Aug 2023 18:27:43 +0000 Received: from localhost ([127.0.0.1]:34334 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qT4xC-0005pI-KN for submit@debbugs.gnu.org; Mon, 07 Aug 2023 14:27:42 -0400 Received: from lists.gnu.org ([2001:470:142::17]:49492) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qT4xA-0005oJ-7D for submit@debbugs.gnu.org; Mon, 07 Aug 2023 14:27:40 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qT4x4-0001Cn-W7 for bug-guile@gnu.org; Mon, 07 Aug 2023 14:27:35 -0400 Received: from mail-4323.proton.ch ([185.70.43.23]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qT4x1-00048E-4f for bug-guile@gnu.org; Mon, 07 Aug 2023 14:27:34 -0400 Date: Mon, 07 Aug 2023 18:27:05 +0000 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=elenq.tech; s=protonmail2; t=1691432840; x=1691692040; bh=YYEWwPWYHLZ5vt30JGei3QzM3cKM/L0erEXaDF/PBrU=; h=Date:To:From:Subject:Message-ID:Feedback-ID:From:To:Cc:Date: Subject:Reply-To:Feedback-ID:Message-ID:BIMI-Selector; b=crZks532ojAx3GjRuPoMcnNopKfyXvHbVKDk4kEV7OTORDkBougsQDtf2kBIqH0bH 50wylVgdhdpqFzRm7f3TQU8VLf647IoQH2dm+/sbRQ/lXndT8EWWXGLa/1ZYXY+g/Q 0u2jddOIKcDl6/HGMlXuCrey6JjcUbKAkX8xARItpOSPjkIKrxDCuqiqztZC56qNQL WZEpsq8U5RqLuH7tnOA9Cp274UI0sPyDNLW2OX9ecqolvLWrHFujh4l098H02JY3kg VbDRDE7IWoM7Mt7a35HgSwJ5vZfimMY1NucPJ6XfOwHUx1MwiMu38O1Tf8XGyqOJ1I H6qD4YqFv2DFA== To: "bug-guile@gnu.org" From: Ekaitz Zarraga Subject: [PATCH] fix cond1 macro Message-ID: Feedback-ID: 3263582:user:proton MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Received-SPF: pass client-ip=185.70.43.23; envelope-from=ekaitz@elenq.tech; helo=mail-4323.proton.ch X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_MSPIKE_H5=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: 1.0 (+) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.0 (/) >From ab6e4980ea301b5d1e14a98464e5de3e726984f1 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga 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 expr= ession, like the use of ((cond1 test =3D> 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* ...))))) =20 (define (square x) (* x x)) (cond1 10 =3D> square) --=20 2.41.0 ------------=_1696007042-29279-1--