scsh-0.6/scheme/alt/define-macro-define-syntax.scm

; Copyright (c) 1993-2001 by Richard Kelsey and Jonathan Rees. See file COPYING.

(define-macro (define-syntax macro-name transformer . stuff)
  `(define-macro (,macro-name . args)
     (,transformer (cons ',macro-name args)
		   (lambda (x) x)
		   eq?)))