From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andy Wingo Newsgroups: gmane.lisp.guile.bugs Subject: Re: Quite sneaky bug in SRFI-9 Date: Fri, 11 Mar 2011 20:30:42 +0100 Message-ID: References: <87fwqvg6xk.fsf@gmx.at> <87aah1n4mp.fsf@gnu.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1299871878 8409 80.91.229.12 (11 Mar 2011 19:31:18 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Fri, 11 Mar 2011 19:31:18 +0000 (UTC) Cc: bug-guile@gnu.org To: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=) Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Fri Mar 11 20:31:13 2011 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Py839-0001hD-3m for guile-bugs@m.gmane.org; Fri, 11 Mar 2011 20:31:13 +0100 Original-Received: from localhost ([127.0.0.1]:40532 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Py834-0005lj-AV for guile-bugs@m.gmane.org; Fri, 11 Mar 2011 14:30:54 -0500 Original-Received: from [140.186.70.92] (port=33453 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Py82s-0005jx-Tu for bug-guile@gnu.org; Fri, 11 Mar 2011 14:30:44 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Py82q-0006Sg-PB for bug-guile@gnu.org; Fri, 11 Mar 2011 14:30:41 -0500 Original-Received: from a-pb-sasl-sd.pobox.com ([64.74.157.62]:52587 helo=sasl.smtp.pobox.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Py82q-0006SU-LH; Fri, 11 Mar 2011 14:30:40 -0500 Original-Received: from sasl.smtp.pobox.com (unknown [127.0.0.1]) by a-pb-sasl-sd.pobox.com (Postfix) with ESMTP id 326463534; Fri, 11 Mar 2011 14:32:10 -0500 (EST) DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=pobox.com; h=from:to:cc :subject:references:date:in-reply-to:message-id:mime-version :content-type:content-transfer-encoding; s=sasl; bh=NrJYm28ktulx r2DpXhSNFc95cmo=; b=V9f+iwUwuVRACCk/HVg2AQoJ8bEQDJKXaDFP2kNMDgvh NEAAf0z+t4PMuUGgASuhH77pwSqTN4IB6NQj02PnS5Ed9ndLIrATq40etG3vdrTs SfqJfc6IRiKBy6+siF+LKRH9QSwo8KC0ThHwbek18hXWVv1c1JeG6pQzfTLmqV4= DomainKey-Signature: a=rsa-sha1; c=nofws; d=pobox.com; h=from:to:cc :subject:references:date:in-reply-to:message-id:mime-version :content-type:content-transfer-encoding; q=dns; s=sasl; b=IntqnQ sKdFG1l6f93Xkq/izplT+m/Kx1S7sfTUfXJLPT17IhoRNJ5Mt91yWBHq365p+cK7 KylLlhGkoFnZ/2x4T+EvAUR8oZk0E2MBL3JGIo4qwTZP0x81czt2Wn2IuTpbMfty pjQNAMwn/C+1JwwIH9v4w0Wr2SQm7OZCBHAnc= Original-Received: from a-pb-sasl-sd.pobox.com (unknown [127.0.0.1]) by a-pb-sasl-sd.pobox.com (Postfix) with ESMTP id 1FE283533; Fri, 11 Mar 2011 14:32:08 -0500 (EST) Original-Received: from unquote.localdomain (unknown [90.164.198.39]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by a-pb-sasl-sd.pobox.com (Postfix) with ESMTPSA id 650E63532; Fri, 11 Mar 2011 14:32:06 -0500 (EST) In-Reply-To: <87aah1n4mp.fsf@gnu.org> ("Ludovic =?utf-8?Q?Court=C3=A8s=22'?= =?utf-8?Q?s?= message of "Fri, 11 Mar 2011 14:55:26 +0100") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux) X-Pobox-Relay-ID: 40BCC576-4C16-11E0-9801-E8AB60295C12-02397024!a-pb-sasl-sd.pobox.com X-detected-operating-system: by eggs.gnu.org: Solaris 10 (beta) X-Received-From: 64.74.157.62 X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:5318 Archived-At: Hi, On Fri 11 Mar 2011 14:55, ludo@gnu.org (Ludovic Court=C3=A8s) writes: > (define-syntax name > (lambda (x) > (syntax-case x () > - ((_ formals ...) > - #'(begin body ...)) > + ((_ args ...) > + #'(letify (formals ...) (args ...) > + (begin body ...))) Alternately: ((_ args ...) #'((lambda (formals ...) body ...) args ...)) Guile will turn that into a let. Andy --=20 http://wingolog.org/