diff options
author | Marius Vollmer <mvo@zagadka.de> | 1997-04-29 18:29:53 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 1997-04-29 18:29:53 +0000 |
commit | 1fe1799f2406dc3b815629553512fad899e084dd (patch) | |
tree | 8445f6fa71948e9fe8ae21ad6381a65db9bbdf1b /libguile/dynl.c | |
parent | ef79b65ba860ef92508bf600c6aec1b2eda1d302 (diff) | |
download | guile-1fe1799f2406dc3b815629553512fad899e084dd.tar.gz |
* dynl.c (print_dynl_obj): Indicate whether the dynamic object has
been unlinked.
Diffstat (limited to 'libguile/dynl.c')
-rw-r--r-- | libguile/dynl.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/dynl.c b/libguile/dynl.c index 9bca8c446..8e2226d0a 100644 --- a/libguile/dynl.c +++ b/libguile/dynl.c @@ -309,6 +309,8 @@ print_dynl_obj (exp, port, pstate) struct dynl_obj *d = (struct dynl_obj *)SCM_CDR (exp); scm_gen_puts (scm_regular_string, "#<dynamic-object ", port); scm_iprin1 (d->filename, port, pstate); + if (d->handle == NULL) + scm_gen_puts (scm_regular_string, " (unlinked)", port); scm_gen_putc ('>', port); return 1; } |