(define-syntax eval-syntax
  (syntax-rules ()
    ((_ body ...)
     (let-syntax ((x (lambda _ body ...))) (x)))))