diff options
Diffstat (limited to 'libguile/dynl.c')
-rw-r--r-- | libguile/dynl.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/libguile/dynl.c b/libguile/dynl.c index f554c39c0..6b301ea84 100644 --- a/libguile/dynl.c +++ b/libguile/dynl.c @@ -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; } |