summaryrefslogtreecommitdiff
path: root/libguile/finalizers.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/finalizers.c')
-rw-r--r--libguile/finalizers.c10
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 ();