playing with macros inside macros: a Clojure-like defmacro in Racket

defmacro.rkt

(define-syntax defmacro
  (syntax-rules
    ()
    ((defmacro (name . args)
       (body ...))

     (define-syntax name
       (syntax-rules
         ()
         ((name . args) (body ...)))))))

; test
(defmacro (swap! x y)
  (let ((tmp x))
    (begin (set! x y)
           (set! y tmp))))

(let ((x " before ")
      (y " after "))
  (begin (swap! x y)
         (display x)
         (display y)
         (newline)))