(module c-sqld-sqlite mzscheme (define c-sqld-sqlite-available? #f) (provide c-sqld-sqlite-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-sqlite-version c-sqlite-open c-sqlite-close c-sqlite-query c-sqlite-nrows c-sqlite-ncols c-sqlite-cell c-sqlite-lasterr))