(scm_igc): put scm_gc_running-- before running hooks.

diff --git a/libguile/gc.c b/libguile/gc.c
index 6c87857..c1d489c 100644 (file)
--- 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);
 
   /*