(import (chicken memory representation) matchable)

(module foo (foo make-foo)
(import scheme (chicken base))
(define-record foo a b))

(import foo)

(match (make-foo 1 2)
  (($ foo x y) (assert (= x 1) (= y 2))))