(import matchable)

(define-record test-record
  a b)

(define obj (make-test-record 1 2))

(define (read-obj test-record)
  (match-let ((($ test-record a b) ;; match against a 'test-record' structure
               test-record))       ;; the variable 'test-record' gets shadowed here
                                   ;; in Chicken 5, not in 4.
    (list a b)))

(print (read-obj obj))