bug#20546: Syntax bug in master branch (till d99fedc5fd38c0)

[Nala Ginrut]

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.