define-macro-define-syntax.scm 257 B

12345678
  1. ; Copyright (c) 1993-2007 by Richard Kelsey and Jonathan Rees. See file COPYING.
  2. (define-macro (define-syntax macro-name transformer . stuff)
  3. `(define-macro (,macro-name . args)
  4. (,transformer (cons ',macro-name args)
  5. (lambda (x) x)
  6. eq?)))