* bug#20546: Syntax bug in master branch (till d99fedc5fd38c0)
@ 2015-05-11 10:29 Nala Ginrut
2016-06-23 20:27 ` Andy Wingo
0 siblings, 1 reply; 3+ messages in thread
From: Nala Ginrut @ 2015-05-11 10:29 UTC (permalink / raw)
To: 20546
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.
^ permalink raw reply [flat|nested] 3+ messages in thread
* bug#20546: Syntax bug in master branch (till d99fedc5fd38c0)
2015-05-11 10:29 bug#20546: Syntax bug in master branch (till d99fedc5fd38c0) Nala Ginrut
@ 2016-06-23 20:27 ` Andy Wingo
2016-08-07 10:32 ` Andy Wingo
0 siblings, 1 reply; 3+ messages in thread
From: Andy Wingo @ 2016-06-23 20:27 UTC (permalink / raw)
To: Nala Ginrut; +Cc: 20546
On Mon 11 May 2015 12:29, Nala Ginrut <nalaginrut@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@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?
^ permalink raw reply [flat|nested] 3+ messages in thread
* bug#20546: Syntax bug in master branch (till d99fedc5fd38c0)
2016-06-23 20:27 ` Andy Wingo
@ 2016-08-07 10:32 ` Andy Wingo
0 siblings, 0 replies; 3+ messages in thread
From: Andy Wingo @ 2016-08-07 10:32 UTC (permalink / raw)
To: Nala Ginrut; +Cc: 20546-done
On Thu 23 Jun 2016 22:27, Andy Wingo <wingo@pobox.com> writes:
> On Mon 11 May 2015 12:29, Nala Ginrut <nalaginrut@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
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2016-08-07 10:32 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2015-05-11 10:29 bug#20546: Syntax bug in master branch (till d99fedc5fd38c0) Nala Ginrut
2016-06-23 20:27 ` Andy Wingo
2016-08-07 10:32 ` Andy Wingo
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).