c-sqld-db2.scm
(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))