(module match-generics
;;© Idiomdrottning, 2021. BSD 1-clause license
(define-generic)
(import scheme (chicken base) (chicken syntax) (only brev-separate define-ir-syntax* match-define) matchable)
(import-for-syntax (only brev-separate call-table* match-define) matchable)

(define-for-syntax gentable (call-table*))
(define-ir-syntax*
  (define-generic (name . pattern) . body)
  (cons 'match-define
	(gentable (strip-syntax name) (cons (cons name pattern) body)))))