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.
