On this page:
define-simple-macro
define-syntax-parser

1.6 Defining Simple Macros

 (require syntax/parse/define) package: base

syntax

(define-simple-macro (macro-id . pattern) pattern-directive ...
  template)
Defines a macro named macro-id; equivalent to the following:

(define-syntax (macro-id stx)
  (syntax-parse stx
    #:track-literals
    [((~var macro-id 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

  in: (fn 1 2)

> (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

  in: (fn2 a #:b (quote c))

Changed in version 6.12.0.3 of package base: Changed pattern head to (~var macro-id id) from macro-id, allowing tilde-prefixed identifiers or identifiers containing colons to be used as macro-id without producing a syntax error.
Changed in version 6.90.0.29: Changed to always use the #:track-literals syntax-parse option.

syntax

(define-syntax-parser macro-id parse-option ... clause ...+)

Defines a macro named macro-id; equivalent to:

(define-syntax macro-id
  (syntax-parser parse-option ... clause ...))

Examples:
> (define-syntax-parser fn3
    [(fn3 x:id rhs:expr)
     #'(lambda (x) rhs)]
    [(fn3 x:id y:id rhs:expr)
     #'(lambda (x y) rhs)])
> ((fn3 x x) 17)

17

> ((fn3 a b (+ a b)) 3 4)

7

> (fn3 1 2)

fn3: expected identifier

  at: 1

  in: (fn3 1 2)

> (fn3 a #:b 'c)

fn3: expected expression or expected identifier

  at: #:b

  in: (fn3 a #:b (quote c))