Welcome to the CHICKEN Scheme pasting service

;; anaphoric define-macro                                                                                                                            
;; form, inject and compare? are saved.                                                                                                              
(define-syntax adm
  (ir-macro-transformer
   (lambda (f i c)
     (match f
       ((_ name . cs)
        (let ((form (i 'form))
              (inject (i 'inject))
              (compare? (i 'compare?)))
          `(define-syntax ,name
             (ir-macro-transformer
              (lambda (,form ,inject ,compare?)
                (match ,form
                  ,@cs))))))))))