mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

new gc

Browse source
This commit is contained in:
Han-Wen Nienhuys 2002-08-04 00:17:18 +00:00
parent c3164ca85e
commit c8a1bdc460
19 changed files with 796 additions and 2287 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_SETGCMARK (scm_subr_table[i].name);
SCM_SET_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))