(module c-roos mzscheme
  (define c-roos-available? #f)
  (provide c-roos-available?)

  (define-syntax provide-wrappers
    (syntax-rules ()
      [(_) (begin)]
      [(_ id1 id ...)
       (begin
	 (define (id1 . args)
	   (error 'id1 "extension not compiled"))
	 (provide id1)
	 (provide-wrappers id ...))]))

  (provide-wrappers
   c-roos-new c-roos-add-member
   c-roos-add-proxy c-roos-new-super
   c-roos-get-member c-roos-call-member
   c-roos-supers-for-each 
   c-roos-class-is c-roos-class 
   c-roos-is-object object?
   c-roos-set-this 
   c-roos-invalidate
   c-roos-is-valid c-roos-valid?
   c-roos-id
   roos-id))