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

8 lines
257 B
Scheme
Raw Permalink Normal View History

2002-04-04 03:36:20 -05:00
; 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?)))