Simple define-macro by syntax-case

define-macro.scm

#!r6rs
(import (rnrs))
(define-syntax define-macro
  (lambda (x)
    (syntax-case x ()
      ((_ (name args ... . rest) body ...)
       #'(define-macro name (lambda (args ... . rest) body ...)))
      ((_ name body)
       (identifier? #'name)
       #'(define-syntax name
           (lambda (xx)
             (define transformer body)
             (syntax-case xx ()
               ((k expr (... ...))
                (datum->syntax #'k
                 (apply transformer (syntax->datum #'(expr (... ...)))))))))))))

;; dummy
(define (next-prime s) s)
(define-macro (do-primes vars . body)
  (let ((var (car vars))
        (start (cadr vars))
        (end (caddr vars)))
    `(do ((,var (next-prime ,start) (next-prime (+ 1 ,var)))
          (ending-value ,end))
         ((> ,var ending-value))
       ,@body)))

(do-primes (v 0 10) (display v) (newline))