From 66d4f5ccaab3289b299544d19f47db49335f69d4 Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Sat, 5 Oct 2002 04:55:22 +0000 Subject: [PATCH] * dynl.c (sysdep_dynl_link): switch to scm_lt_dlhandle, scm_lt_dlopenext, and scm_lt_dlerror. (sysdep_dynl_unlink): switch to scm_lt_dlhandle, scm_lt_dlclose, and scm_lt_dlerror. (sysdep_dynl_func): switch to scm_lt_dlhandle, scm_lt_dlsym, and scm_lt_dlerror. (sysdep_dynl_init): switch to scm_lt_dlinit(); --- libguile/dynl.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/libguile/dynl.c b/libguile/dynl.c index b567796bc..4d38d4055 100644 --- a/libguile/dynl.c +++ b/libguile/dynl.c @@ -75,7 +75,7 @@ maybe_drag_in_eprintf () #include "libguile/lang.h" #include "libguile/validate.h" -#include "libltdl/ltdl.h" +#include "guile-ltdl.h" /* From the libtool manual: "Note that libltdl is not threadsafe, @@ -90,7 +90,7 @@ maybe_drag_in_eprintf () static void * sysdep_dynl_link (const char *fname, const char *subr) { - lt_dlhandle handle; + scm_lt_dlhandle handle; handle = scm_lt_dlopenext (fname); if (NULL == handle) { @@ -107,7 +107,7 @@ sysdep_dynl_link (const char *fname, const char *subr) static void sysdep_dynl_unlink (void *handle, const char *subr) { - if (scm_lt_dlclose ((lt_dlhandle) handle)) + if (scm_lt_dlclose ((scm_lt_dlhandle) handle)) { scm_misc_error (subr, (char *) scm_lt_dlerror (), SCM_EOL); } @@ -118,7 +118,7 @@ sysdep_dynl_func (const char *symb, void *handle, const char *subr) { void *fptr; - fptr = scm_lt_dlsym ((lt_dlhandle) handle, symb); + fptr = scm_lt_dlsym ((scm_lt_dlhandle) handle, symb); if (!fptr) { scm_misc_error (subr, (char *) scm_lt_dlerror (), SCM_EOL);