1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00

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

This commit is contained in:
Han-Wen Nienhuys 2004-10-07 23:42:41 +00:00
parent 497eb0b725
commit 07b99edbe8

View file

@ -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);
/*