summaryrefslogtreecommitdiff
path: root/libguile/async.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/async.c')
-rw-r--r--libguile/async.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/libguile/async.c b/libguile/async.c
index 906a22acd..1ec9e2ccd 100644
--- a/libguile/async.c
+++ b/libguile/async.c
@@ -51,6 +51,7 @@
#include "libguile/throw.h"
#include "libguile/root.h"
#include "libguile/smob.h"
+#include "libguile/gc.h"
#include "libguile/validate.h"
#include "libguile/async.h"
@@ -453,6 +454,8 @@ static SCM scm_gc_vcell;
static SCM
scm_sys_gc_async_thunk (void)
{
+ scm_c_run_hook (scm_after_gc_hook, SCM_EOL);
+ /* The following code will be removed in Guile 1.5. */
if (SCM_NFALSEP (scm_gc_vcell))
{
SCM proc = SCM_CDR (scm_gc_vcell);