mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

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

Browse source 
been unlinked.
This commit is contained in:
Marius Vollmer 1997-04-29 18:29:53 +00:00
parent ef79b65ba8
commit 1fe1799f24
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/dynl.c
View file

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