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