(module sqld-psql mzscheme (require "sqlid-libpath.scm") (provide sqld-psql-new) (define sqld-psql-new #f) (let ((module (libpath-module "sqld-psql-internal.scm"))) (set-libpath) ;(display (format "~a ~%" module)) (set! sqld-psql-new (dynamic-require module 'sqld-psql-new)) (reset-libpath)) )