;;;; coops-introspection-tinyclos.scm
;;;; Kon Lovett, Oct '17

(module coops-introspection-tinyclos

(;export
  class-supers )

(import scheme chicken)

(use
  (only coops-introspection
    class-precedence-list primitive-instance? generic-primary-methods))

(reexport
  (rename coops-introspection
    (class-precedence-list class-cpl)
    (primitive-instance? primitive?)
    (generic-primary-methods generic-methods) ) )

;;; Synonyms

(define class-supers class-precedence-list)

) ;coops-introspection-tinyclos