(module sqld-sqlite mzscheme (require "sqlid-libpath.scm") (provide sqld-sqlite-new) (define sqld-sqlite-new #f) (let ((module (libpath-module "sqld-sqlite-internal.scm"))) (set-libpath) (set! sqld-sqlite-new (dynamic-require module 'sqld-sqlite-new)) (reset-libpath)) )