mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* Changed guardian representation to applicable smob.

Browse source 
* Improved error reporting for dynamic loading.
This commit is contained in:
Dirk Herrmann 2000-12-05 03:04:20 +00:00
parent 362306b956
commit 01449aa511
3 changed files with 116 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/dynl.c
View file

@ -239,8 +239,13 @@ sysdep_dynl_link (const char *fname, const char *subr)
handle = lt_dlopenext (fname);
if (NULL == handle)
{
SCM fn;
SCM msg;
SCM_ALLOW_INTS;
scm_misc_error (subr, (char *) lt_dlerror (), SCM_EOL);
fn = scm_makfrom0str (fname);
msg = scm_makfrom0str (lt_dlerror ());
scm_misc_error (subr, "file: ~S, message: ~S", SCM_LIST2 (fn, msg));
}
return (void *) handle;
}