A better define-syntax-rule

betterdsr.rkt

(require (for-syntax syntax/parse))
; syntax classes, syntax-parse patterns and unquote-syntax in your define-syntax-rule!
(define-syntax (define-syntax-rule* stx)
  (syntax-parse stx
    [(_ (name patterns ...) body ...)
     (syntax/loc stx
      (define-syntax (name syn)
        (syntax-parse syn
          [(_ patterns ...)
           (quasisyntax/loc syn (begin body ...))])))]))