From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Andreas Schwab Newsgroups: gmane.emacs.devel Subject: Re: Is this a bug in while-let or do I missunderstand it? Date: Sun, 10 Nov 2024 07:07:06 +0100 Message-ID: <87r07jfwqd.fsf_-_@igel.home> References: <86r07kaxkk.fsf@fastmail.fm> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="19951"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Cc: arthur miller , Yuri Khan , "emacs-devel@gnu.org" To: Joost Kremers Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Sun Nov 10 07:07:57 2024 Return-path: Envelope-to: ged-emacs-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 1tA177-00052x-3Q for ged-emacs-devel@m.gmane-mx.org; Sun, 10 Nov 2024 07:07:57 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1tA16S-00039H-PW; Sun, 10 Nov 2024 01:07:17 -0500 Original-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 1tA16Q-000395-9R for emacs-devel@gnu.org; Sun, 10 Nov 2024 01:07:14 -0500 Original-Received: from mail-out.m-online.net ([2001:a60:0:28:0:1:25:1]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1tA16O-0007RM-2k for emacs-devel@gnu.org; Sun, 10 Nov 2024 01:07:14 -0500 Original-Received: from frontend01.mail.m-online.net (unknown [192.168.8.182]) by mail-out.m-online.net (Postfix) with ESMTP id 4XmMdl35tgz1sBqm; Sun, 10 Nov 2024 07:07:07 +0100 (CET) Original-Received: from localhost (dynscan1.mnet-online.de [192.168.6.68]) by mail.m-online.net (Postfix) with ESMTP id 4XmMdl0HrBz1qqlW; Sun, 10 Nov 2024 07:07:07 +0100 (CET) X-Virus-Scanned: amavis at mnet-online.de Original-Received: from mail.mnet-online.de ([192.168.8.182]) by localhost (dynscan1.mail.m-online.net [192.168.6.68]) (amavis, port 10024) with ESMTP id C8DHsHeLRZ2o; Sun, 10 Nov 2024 07:07:06 +0100 (CET) X-Auth-Info: NMDSRt76wDWk0V0nj2NJzipHoIhEes6bsCnFjTHHqwqOrZmFyoM3FWpuO+G0+SHS Original-Received: from igel.home (aftr-82-135-83-35.dynamic.mnet-online.de [82.135.83.35]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (2048 bits) server-digest SHA256) (No client certificate requested) by mail.mnet-online.de (Postfix) with ESMTPSA; Sun, 10 Nov 2024 07:07:06 +0100 (CET) Original-Received: by igel.home (Postfix, from userid 1000) id 0E8182C1A5E; Sun, 10 Nov 2024 07:07:06 +0100 (CET) In-Reply-To: <86r07kaxkk.fsf@fastmail.fm> (Joost Kremers's message of "Sat, 09 Nov 2024 22:47:55 +0100") X-Yow: The fact that 47 PEOPLE are yelling and sweat is cascading down my SPINAL COLUMN is fairly enjoyable!! Received-SPF: pass client-ip=2001:a60:0:28:0:1:25:1; envelope-from=whitebox@nefkom.net; helo=mail-out.m-online.net X-Spam_score_int: -23 X-Spam_score: -2.4 X-Spam_bar: -- X-Spam_report: (-2.4 / 5.0 requ) BAYES_00=-1.9, HEADER_FROM_DIFFERENT_DOMAINS=0.249, RCVD_IN_DNSWL_LOW=-0.7, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.devel:325365 Archived-At: On Nov 09 2024, Joost Kremers wrote: > Yes, but for `while`, the pattern isn't complete. The `setq` inside the > loop is a crucial part: > > ``` > (let ((a (foo ...))) > (while a > (do-stuff-with a) > (setq a (foo ...)))) > ``` You can write it like this to avoid typing the condition twice: (let (a) (while (setq a (foo ...)) (do-stuff-with a))) -- Andreas Schwab, schwab@linux-m68k.org GPG Key fingerprint = 7578 EB47 D4E5 4D69 2510 2552 DF73 E780 A9DA AEC1 "And now for something completely different."