From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: ludo@gnu.org (Ludovic =?iso-8859-1?Q?Court=E8s?=) Newsgroups: gmane.lisp.guile.devel Subject: Re: Enhancement to the syntax system? Date: Tue, 10 Jul 2012 17:22:36 +0200 Message-ID: <87hatftzcz.fsf@gnu.org> References: <877gumufmq.fsf@gnu.org> <87r4stss4d.fsf@gnu.org> <878vf0o7gs.fsf@gnu.org> <87pq85dj8o.fsf@gnu.org> <87sjd058ia.fsf@gnu.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1341933783 9221 80.91.229.3 (10 Jul 2012 15:23:03 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 10 Jul 2012 15:23:03 +0000 (UTC) Cc: guile-devel@gnu.org To: Stefan Israelsson Tampe Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Tue Jul 10 17:23:02 2012 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1SocHF-0007iz-Ir for guile-devel@m.gmane.org; Tue, 10 Jul 2012 17:23:01 +0200 Original-Received: from localhost ([::1]:51087 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SocHE-0008La-Cn for guile-devel@m.gmane.org; Tue, 10 Jul 2012 11:23:00 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:44047) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SocH3-0008LA-Em for guile-devel@gnu.org; Tue, 10 Jul 2012 11:22:58 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SocGt-0005dk-Lh for guile-devel@gnu.org; Tue, 10 Jul 2012 11:22:49 -0400 Original-Received: from xanadu.aquilenet.fr ([88.191.123.111]:47220) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SocGt-0005de-G4 for guile-devel@gnu.org; Tue, 10 Jul 2012 11:22:39 -0400 Original-Received: from localhost (localhost [127.0.0.1]) by xanadu.aquilenet.fr (Postfix) with ESMTP id 4E6B71C10C; Tue, 10 Jul 2012 17:22:38 +0200 (CEST) Original-Received: from xanadu.aquilenet.fr ([127.0.0.1]) by localhost (xanadu.aquilenet.fr [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id bt83jpvC19Dd; Tue, 10 Jul 2012 17:22:38 +0200 (CEST) Original-Received: from pluto (vpn-konference.ms.mff.cuni.cz [195.113.20.101]) by xanadu.aquilenet.fr (Postfix) with ESMTPSA id DD5121C10B; Tue, 10 Jul 2012 17:22:37 +0200 (CEST) X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 23 Messidor an 220 de la =?iso-8859-1?Q?R=E9volution?= X-PGP-Key-ID: 0xEA52ECF4 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 83C4 F8E5 10A3 3B4C 5BEA D15D 77DD 95E2 EA52 ECF4 X-OS: x86_64-unknown-linux-gnu In-Reply-To: (Stefan Israelsson Tampe's message of "Tue, 10 Jul 2012 15:35:27 +0200") User-Agent: Gnus/5.130005 (Ma Gnus v0.5) Emacs/24.1 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 88.191.123.111 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.14 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.org@gnu.org Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:14730 Archived-At: Hi, Stefan Israelsson Tampe skribis: > racket: > (define-for-syntax (f x) #`(let ((x 1)) #,x)) >> (define-syntax (g x) (syntax-case x ()((_ y) #`(let ((x y)) #,(f #'x)))) > ) >> (g 4) > 4 > > In guile, > scheme@(guile-user)> (define (f x) #`(let ((x 1)) #,x)) > scheme@(guile-user)> (define-syntax g (lambda (x) (syntax-case x () ((_ y) > #`(let ((x y)) #,(f #'x)))))) > scheme@(guile-user)> (g 4) > $1 =3D 1 > ! > > I much prefer rackets version here. I will file a bug report and also try > to understand what spec that racket is following! Aaah, indeed, that=E2=80=99s a =E2=80=9Cbetter=E2=80=9D outcome! :-) Ludo=E2=80=99.