;;;coerce.scm
;;;Kon Lovett, Sep '09

;Originally from "The SLIB Portable Scheme Library" by Aubrey Jaffer.

(module coerce

(;export
  ;Original
  coerce
  type-of
  ;Type Testing Extensions
  basic-type-of
  basic-same-type?
  same-type?
  ;Coerce Extensions
  (case-coerce *make-case-coerce)
  case-coerce
  coerce-all
  ;Type Domain Extension
  coerce-extended?
  coerce-extend!
  coerce-extension
  coerce-composite-extension!
  coerce-extension-remove!
  ;Type-Of Extension
  extended-type-of
  type-of-extended?
  type-of-extend!
  type-of-extension
  type-of-composite-extension!
  type-of-remove!)

(import scheme chicken type-coerce type-of coerce-extend)
(use type-coerce type-of coerce-extend)

) ;module coerce