GNU bug report logs - #20546
Syntax bug in master branch (till d99fedc5fd38c0)

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 20546 in the body.
You can then email your comments to 20546 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Nala Ginrut <nalaginrut <at> gmail.com>
To: bug-guile <at> gnu.org
Subject: Syntax bug in master branch (till d99fedc5fd38c0)
Date: Mon, 11 May 2015 18:29:26 +0800

I'm using master branch (till d99fedc5fd38c0), and I found this code
can't run in 2.1, but works in 2.0:

---------------------------------code-------------------------------
(define-syntax define-art
  (lambda (x)
   (syntax-case x ()
    ((_ name) (identifier? #'name)
     #`(begin
        (define name 2)
        (define #,(datum->syntax #'name
                  (symbol-append 'define- (syntax->datum #'name)))
                33))))))
----------------------------------end-------------------------------

Of course, the meaning of this code is trivial.

Message #8 received at 20546 <at> debbugs.gnu.org (full text, mbox):

From: Andy Wingo <wingo <at> pobox.com>
To: Nala Ginrut <nalaginrut <at> gmail.com>
Cc: 20546 <at> debbugs.gnu.org
Subject: Re: bug#20546: Syntax bug in master branch (till d99fedc5fd38c0)
Date: Thu, 23 Jun 2016 22:27:11 +0200

On Mon 11 May 2015 12:29, Nala Ginrut <nalaginrut <at> gmail.com> writes:

> I'm using master branch (till d99fedc5fd38c0), and I found this code
> can't run in 2.1, but works in 2.0:
>
> (define-syntax define-art
>   (lambda (x)
>    (syntax-case x ()
>     ((_ name) (identifier? #'name)
>      #`(begin
>         (define name 2)
>         (define #,(datum->syntax #'name
>                   (symbol-append 'define- (syntax->datum #'name)))
>                 33))))))
>
> Of course, the meaning of this code is trivial.

Works for me:

wingo <at> clucks:~/src/guile$ meta/guile
GNU Guile 2.1.3.17-b8f5c-dirty
Copyright (C) 1995-2016 Free Software Foundation, Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.

Enter `,help' for help.
scheme@(guile-user)> (define-syntax define-art
...   (lambda (x)
...    (syntax-case x ()
...     ((_ name) (identifier? #'name)
...      #`(begin
...         (define name 2)
...         (define #,(datum->syntax #'name
...                   (symbol-append 'define- (syntax->datum #'name)))
...                 33))))
... )
... )
scheme@(guile-user)> (define-art foo)
scheme@(guile-user)> foo
$1 = 2
scheme@(guile-user)> define-foo
$2 = 33

Must be some bug that was fixed in the meantime?

Message #13 received at 20546-done <at> debbugs.gnu.org (full text, mbox):

From: Andy Wingo <wingo <at> pobox.com>
To: Nala Ginrut <nalaginrut <at> gmail.com>
Cc: 20546-done <at> debbugs.gnu.org
Subject: Re: bug#20546: Syntax bug in master branch (till d99fedc5fd38c0)
Date: Sun, 07 Aug 2016 12:32:18 +0200

On Thu 23 Jun 2016 22:27, Andy Wingo <wingo <at> pobox.com> writes:

> On Mon 11 May 2015 12:29, Nala Ginrut <nalaginrut <at> gmail.com> writes:
>
>> I'm using master branch (till d99fedc5fd38c0), and I found this code
>> can't run in 2.1, but works in 2.0:
>>
>> (define-syntax define-art
>>   (lambda (x)
>>    (syntax-case x ()
>>     ((_ name) (identifier? #'name)
>>      #`(begin
>>         (define name 2)
>>         (define #,(datum->syntax #'name
>>                   (symbol-append 'define- (syntax->datum #'name)))
>>                 33))))))
>>
>> Of course, the meaning of this code is trivial.
>
> Works for me:

Closing bug.  Please re-open if you can reproduce it; cheers :)

Andy

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.