(use-modules (ice-9 match))
(use-modules (srfi srfi-9))
(define-record-type <foo> (make-foo a b) foo? (a foo-a) (b foo-b))
(match (make-foo 1 2) (($ <foo> a b) (+ a b)))

(define $ 'blah)
(match (make-foo 1 2) (($ <foo> a b) (+ a b)))