summaryrefslogtreecommitdiff
path: root/libguile/async.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-04-21 23:10:37 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-04-21 23:10:37 +0000
commit7157d7a90abc706f428147b21ddfd0889b2fb553 (patch)
tree5e84c896f40f3cc045326c72a96745ec418fdbff /libguile/async.c
parentfc557f60baa18b4d56095c8e3543be3035afceda (diff)
downloadguile-7157d7a90abc706f428147b21ddfd0889b2fb553.tar.gz
* async.c (scm_sys_gc_async_thunk): Run after-gc-hook.
Added #include "libguile/gc.h".
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);