From 1fe1799f2406dc3b815629553512fad899e084dd Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Tue, 29 Apr 1997 18:29:53 +0000
Subject: [PATCH] * dynl.c (print_dynl_obj): Indicate whether the dynamic
 object has been unlinked.

---
 libguile/dynl.c | 2 ++
 1 file changed, 2 insertions(+)

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;
 }
-- 
2.20.1