(module c-roos mzscheme (require "x-roos.scm") (provide (all-from "x-roos.scm") c-roos-kind c-roos-available? ) ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define c-roos-available? #t) (define c-roos-kind 'x-roos) ) ;;;; end module