HomeAboutCodePastes

Paste on 2021-08-25T10:11:36

(import scheme
        (chicken syntax))
(import-for-syntax (only (srfi 1) zip)
                    (only matchable match match-let))

(define-syntax defmacro
(er-macro-transformer
    (lambda (x r c)
    (match x
        [(_ (name . args) . body)
        `(define-syntax ,name
            (er-macro-transformer
            (lambda (x1 r1 c1)
            (apply (lambda (,@args)
                        ,@body)
                    (cdr x1)))))]))))

plain