;;;; srfi-19-common.types.scm

(define-type real (or integer float ratnum))  ;not complex

(define-type timezone-components (list-of (pair symbol *)))
(define-type timezone-name (or false string))
(define-type timezone-info (or fixnum timezone-components))

(define-type clock-type symbol)
(define-type time-type symbol)

(define-type time (struct time))
(define-type date (struct date))

(define-type date-timezone-info (struct date-timezone-info))

(define-type time-period (struct time-period))