From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andy Wingo Newsgroups: gmane.lisp.guile.devel Subject: Re: [CM] funny scheme code (fwd) Date: Fri, 24 Jul 2009 00:19:41 +0200 Message-ID: References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1248388750 18931 80.91.229.12 (23 Jul 2009 22:39:10 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 23 Jul 2009 22:39:10 +0000 (UTC) Cc: guile-devel@gnu.org To: "Kjetil S. Matheussen" Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Fri Jul 24 00:39:03 2009 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1MU6wD-0000zA-Ni for guile-devel@m.gmane.org; Fri, 24 Jul 2009 00:38:58 +0200 Original-Received: from localhost ([127.0.0.1]:55340 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MU6wD-00080T-8G for guile-devel@m.gmane.org; Thu, 23 Jul 2009 18:38:57 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MU6w6-0007yx-VP for guile-devel@gnu.org; Thu, 23 Jul 2009 18:38:51 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MU6w1-0007ta-4M for guile-devel@gnu.org; Thu, 23 Jul 2009 18:38:49 -0400 Original-Received: from [199.232.76.173] (port=55894 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MU6w1-0007tR-1i for guile-devel@gnu.org; Thu, 23 Jul 2009 18:38:45 -0400 Original-Received: from a-sasl-quonix.sasl.smtp.pobox.com ([208.72.237.25]:35841 helo=sasl.smtp.pobox.com) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MU6w0-0000QP-Li for guile-devel@gnu.org; Thu, 23 Jul 2009 18:38:44 -0400 Original-Received: from localhost.localdomain (unknown [127.0.0.1]) by a-sasl-quonix.sasl.smtp.pobox.com (Postfix) with ESMTP id 1D0021155C; Thu, 23 Jul 2009 18:38:44 -0400 (EDT) Original-Received: from unquote (unknown [81.38.186.175]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by a-sasl-quonix.sasl.smtp.pobox.com (Postfix) with ESMTPSA id 833341155A; Thu, 23 Jul 2009 18:38:42 -0400 (EDT) In-Reply-To: (Kjetil S. Matheussen's message of "Mon, 20 Jul 2009 21:09:40 +0200 (CEST)") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.92 (gnu/linux) X-Pobox-Relay-ID: 93ECDD66-77D9-11DE-A61C-F699A5B33865-02397024!a-sasl-quonix.pobox.com X-detected-operating-system: by monty-python.gnu.org: Solaris 10 (beta) X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:8949 Archived-At: On Mon 20 Jul 2009 21:09, "Kjetil S. Matheussen" writes: > On Mon, 20 Jul 2009, Bill Schottstaedt wrote: > >> For some reason, this code strikes me as funny: >> >> (let ((j (lambda () 0)) >> (k 0)) >> (do ((i (j) (j)) >> (j (lambda () 1) (lambda () (+ i 1)))) >> ((= i 3) k) >> (set! k (+ k i)))) I get an endless loop here, at least with the VM. But I will have to admit that I never did understand `do' ;-) Andy -- http://wingolog.org/