From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Maxime Devos Newsgroups: gmane.lisp.guile.devel Subject: Re: Fwd: [Patch] definitions in when, unless, do as well as in cond- and case-clauses Date: Sun, 06 Feb 2022 10:40:21 +0100 Message-ID: <21696eba26d1e863b54850bb9a39d94fd568d62d.camel@telenet.be> References: <7f58438c-f2fb-49b6-b7b0-22054fde6277@www.fastmail.com> <38a7683ab39f412cd6f5b137d2f6ebd6f5410c5e.camel@telenet.be> <8db379b94c9d724c833478db7e6e8a6a4f379f69.camel@telenet.be> Mime-Version: 1.0 Content-Type: multipart/signed; micalg="pgp-sha512"; protocol="application/pgp-signature"; boundary="=-0FaIZG9NHaSM22zCCTUb" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="39875"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Evolution 3.38.3-1 To: tomas@tuxteam.de, guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Sun Feb 06 11:24:14 2022 Return-path: Envelope-to: guile-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1nGeiL-000ABO-Hi for guile-devel@m.gmane-mx.org; Sun, 06 Feb 2022 11:24:13 +0100 Original-Received: from localhost ([::1]:44754 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nGeiK-00068M-3F for guile-devel@m.gmane-mx.org; Sun, 06 Feb 2022 05:24:12 -0500 Original-Received: from eggs.gnu.org ([209.51.188.92]:45108) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nGe2F-0004CQ-J6 for guile-devel@gnu.org; Sun, 06 Feb 2022 04:40:45 -0500 Original-Received: from [2a02:1800:110:4::f00:19] (port=43730 helo=laurent.telenet-ops.be) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1nGe2B-000412-Un for guile-devel@gnu.org; Sun, 06 Feb 2022 04:40:43 -0500 Original-Received: from [172.20.10.5] ([188.188.251.13]) by laurent.telenet-ops.be with bizsmtp id rlgM2600F0J677g01lgMl1; Sun, 06 Feb 2022 10:40:22 +0100 In-Reply-To: DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=telenet.be; s=r22; t=1644140422; bh=s5KC0iU1OwV6GZTuzz91Oeaq2TLVm7XFRt8+qcE5gis=; h=Subject:From:To:Date:In-Reply-To:References; b=nfMMSZVYTjYVkd/4FYzGvSSI3e6u4UaQoCXZ6d8Txbyf4vbazYGGCxdrhQQ3a6Zmd OvwDa0EKDWw/i9X7VFD/fqC05FUasQn3aWKySirfxgYeWQQc/cVINRhAEjUb+qy4Mn 0c/J53PaeDSGazI63/Cjpt7pKxd7CvA/zGZGnf0XYfU9VeRBUXyK3hXtFklfrNu519 LY9dgxSd0yr5kZXcLPnQ8UBhxho0iCuOx2yIJSXCmyRyaYUkrdtS01huCC6IvIWczI fOomE7h/Z2cHKufltScefmCz52ZpxPLkv7QiFoP2eggz7so5mIMLfq6NM5SqNyOdZc kL5epZIEyjIFw== X-Host-Lookup-Failed: Reverse DNS lookup failed for 2a02:1800:110:4::f00:19 (failed) Received-SPF: pass client-ip=2a02:1800:110:4::f00:19; envelope-from=maximedevos@telenet.be; helo=laurent.telenet-ops.be X-Spam_score_int: -19 X-Spam_score: -2.0 X-Spam_bar: -- X-Spam_report: (-2.0 / 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, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_LOW=-0.7, RDNS_NONE=0.793, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Original-Sender: "guile-devel" Xref: news.gmane.io gmane.lisp.guile.devel:21078 Archived-At: --=-0FaIZG9NHaSM22zCCTUb Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable tomas@tuxteam.de schreef op zo 06-02-2022 om 10:27 [+0100]: > ...but doesn't "see" whether bindings are actually used (quite > possibly > those go away in a later optimisation phase, though): >=20 > | scheme@(guile-user)> ,expand (let ((x 3)) (message #t "Yikes")) > | $3 =3D (let ((x 3)) (message #t "Yikes")) They do go away during optimisation: scheme@(guile-user)> ,optimize (let ((x 3)) (message #t "Yikes")) $1 =3D (message #t "Yikes") --=-0FaIZG9NHaSM22zCCTUb Content-Type: application/pgp-signature; name="signature.asc" Content-Description: This is a digitally signed message part Content-Transfer-Encoding: 7bit -----BEGIN PGP SIGNATURE----- iI0EABYKADUWIQTB8z7iDFKP233XAR9J4+4iGRcl7gUCYf+XhRccbWF4aW1lZGV2 b3NAdGVsZW5ldC5iZQAKCRBJ4+4iGRcl7uofAP90Tdz55H0J/KO/bps3yt8T6hu3 OtBxSJ7dI/enqmjBUAD+MXSUwhGU8eKrvfLloylJKi+6st7isYVW7mXlrTYk2Qs= =sJun -----END PGP SIGNATURE----- --=-0FaIZG9NHaSM22zCCTUb--