diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-04-21 23:10:37 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-04-21 23:10:37 +0000 |
commit | 7157d7a90abc706f428147b21ddfd0889b2fb553 (patch) | |
tree | 5e84c896f40f3cc045326c72a96745ec418fdbff /libguile/async.c | |
parent | fc557f60baa18b4d56095c8e3543be3035afceda (diff) | |
download | guile-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.c | 3 |
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); |