diff options
Diffstat (limited to 'libguile/finalizers.c')
-rw-r--r-- | libguile/finalizers.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/libguile/finalizers.c b/libguile/finalizers.c index 0f3f7a5cc..8b680d68c 100644 --- a/libguile/finalizers.c +++ b/libguile/finalizers.c @@ -40,6 +40,7 @@ #include "gsubr.h" #include "init.h" #include "numbers.h" +#include "ports.h" #include "struct.h" #include "smob.h" #include "threads.h" @@ -460,6 +461,15 @@ scm_set_automatic_finalization_enabled (int enabled_p) } int +scm_i_print_finalizer (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED) +{ + scm_puts ("#<finalizer ", port); + scm_uintprint (SCM_UNPACK (exp), 16, port); + scm_puts (")>", port); + return 1; +} + +int scm_run_finalizers (void) { int finalized = GC_invoke_finalizers (); |