8.6 Defining Simple Macros

(require syntax/parse/define)

(define-syntax (macro-id stx)

(syntax-parse stx

[(macro-id . pattern) pattern-directive ... #'template]))

Examples:

> (define-simple-macro (fn x:id rhs:expr) (lambda (x) rhs)) > ((fn x x) 17) 17 > (fn 1 2) fn: expected identifier at: 1 > (define-simple-macro (fn2 x y rhs)     #:declare x id     #:declare y id     #:declare rhs expr     (lambda (x y) rhs)) > ((fn2 a b (+ a b)) 3 4) 7 > (fn2 a #:b 'c) fn2: expected identifier at: #:b