From debbugs-submit-bounces@debbugs.gnu.org Mon Aug 07 14:27:42 2023 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 From debbugs-submit-bounces@debbugs.gnu.org Mon Aug 07 16:16:03 2023 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 To: Ekaitz Zarraga Subject: Re: bug#65132: [PATCH] fix cond1 macro 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-Debbugs-Envelope-To: 65132 Cc: 65132@debbugs.gnu.org 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 debbugs-submit-bounces@debbugs.gnu.org Fri Sep 29 13:03:04 2023 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 From unknown Sun Jun 15 08:51:39 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Sat, 28 Oct 2023 11:24:07 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator