mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

* gc.h: add scm_debug_cells_gc_interval to public interface

Browse source 
* gc-card.c ("sweep_card"): set scm_gc_running while sweeping.

* gc.c (scm_i_expensive_validation_check): separate expensive
validation checks from cheap ones.
This commit is contained in:
Han-Wen Nienhuys 2002-08-08 19:47:31 +00:00
parent 00706edc1d
commit eab1b25970
12 changed files with 179 additions and 105 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/procs.c
View file

@ -139,7 +139,7 @@ scm_mark_subr_table ()
long i;
for (i = 0; i < scm_subr_table_size; ++i)
{
SCM_SET_GC_MARK (scm_subr_table[i].name);
scm_gc_mark (scm_subr_table[i].name);
if (scm_subr_table[i].generic && *scm_subr_table[i].generic)
scm_gc_mark (*scm_subr_table[i].generic);
if (SCM_NIMP (scm_subr_table[i].properties))