summaryrefslogtreecommitdiff
path: root/libguile/dynl.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>1997-04-29 18:29:53 +0000
committerMarius Vollmer <mvo@zagadka.de>1997-04-29 18:29:53 +0000
commit1fe1799f2406dc3b815629553512fad899e084dd (patch)
tree8445f6fa71948e9fe8ae21ad6381a65db9bbdf1b /libguile/dynl.c
parentef79b65ba860ef92508bf600c6aec1b2eda1d302 (diff)
downloadguile-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.c2
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;
}