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