mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

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

Browse source
This commit is contained in:
Han-Wen Nienhuys 2004-10-07 23:42:41 +00:00
parent 497eb0b725
commit 07b99edbe8
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/gc.c
View file

@ -606,8 +606,8 @@ scm_igc (const char *what)
/* /*
See above. See above.
*/ */
scm_c_hook_run (&scm_after_gc_c_hook, 0);
--scm_gc_running_p; --scm_gc_running_p;
scm_c_hook_run (&scm_after_gc_c_hook, 0);
scm_rec_mutex_unlock (&scm_i_sweep_mutex); scm_rec_mutex_unlock (&scm_i_sweep_mutex);
/* /*