;;;; 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!
  ;;
  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)

(require-library type-coerce type-of coerce-extend)

) ;module coerce