$ racket
Welcome to Racket v5.2.1.
- (define-syntax def-struct
  (syntax-rules ()
    ((_ fields id)
     (define-struct id fields))))
- (def-struct (x y) point)
- (define p (make-point 3 4))
- (point-x p)
3
- 

http://www.shido.info/lisp/scheme_syntax_e.html