* dynl.c (print_dynl_obj): Indicate whether the dynamic object has

[bpt/guile.git] / libguile / dynl.c

diff --git a/libguile/dynl.c b/libguile/dynl.c
index 9bca8c4..8e2226d 100644 (file)
--- 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;
 }