From 07b99edbe88b70baec22103a70b1818cf61a932e Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Thu, 7 Oct 2004 23:42:41 +0000 Subject: [PATCH] (scm_igc): put scm_gc_running-- before running hooks. --- libguile/gc.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/gc.c b/libguile/gc.c index 6c8785756..c1d489c40 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -606,8 +606,8 @@ scm_igc (const char *what) /* See above. */ - scm_c_hook_run (&scm_after_gc_c_hook, 0); --scm_gc_running_p; + scm_c_hook_run (&scm_after_gc_c_hook, 0); scm_rec_mutex_unlock (&scm_i_sweep_mutex); /*