composing-comparators-test.scm


1
2
3
4
5
6
7
8
9
10
11

(import (chibi test))

(define-record-type <date>
  (make-date year month day)
  date?
  (year date-year)
  (month date-month)
  (day date-day))