macro.ss: Defining macros simply on chez scheme.

macro.ss

#|
macro.ss
  Defining macros simply on chez scheme. This code is in the public domain.
|#

(import (scheme))

(define-syntax macro
  (syntax-rules ()
    ((k (name . args) body ...)
     (macro name (lambda args body ...)))
    ((k name transformer)
     (define-syntax name
       (lambda (stx)
         (syntax-case stx ()
           ((l . sv)
            (let* ((v (syntax->datum (syntax sv)))
                   (e (apply transformer v)))
              (if (eq? (void) e)
                  (syntax (void))
                  (datum->syntax (syntax l) e))))))))))

; (macro (m1 x) `(display ,x))
; (macro (m2 x) (display x) (display #\a))
; (macro (m3 x) (let ((y (+ x 3)))
;                 (display y)
;                 `(display ,x)))
; (begin
;   (m1 1)
;   (m2 2)
;   (m3 3)) ; => 2a613