(module c-sqld-oracle mzscheme (define c-sqld-oracle-available? #f) (provide c-sqld-oracle-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-oracle-version c-oracle-server-version c-oracle-open c-oracle-close c-oracle-query c-oracle-fetch c-oracle-eoq c-oracle-fields c-oracle-prows c-oracle-columns c-oracle-lasterr c-oracle-autocommit-on c-oracle-autocommit-off c-oracle-escape))