(module c-sqld-db2 mzscheme (define c-sqld-db2-available? #f) (provide c-sqld-db2-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-db2-version c-db2-open c-db2-close c-db2-lasterr c-db2-escape c-db2-query c-db2-autocommit c-db2-fetch c-db2-nfields c-db2-field))