139 |
long i; |
long i; |
140 |
for (i = 0; i < scm_subr_table_size; ++i) |
for (i = 0; i < scm_subr_table_size; ++i) |
141 |
{ |
{ |
142 |
SCM_SETGCMARK (scm_subr_table[i].name); |
SCM_SET_GC_MARK (scm_subr_table[i].name); |
143 |
if (scm_subr_table[i].generic && *scm_subr_table[i].generic) |
if (scm_subr_table[i].generic && *scm_subr_table[i].generic) |
144 |
scm_gc_mark (*scm_subr_table[i].generic); |
scm_gc_mark (*scm_subr_table[i].generic); |
145 |
if (SCM_NIMP (scm_subr_table[i].properties)) |
if (SCM_NIMP (scm_subr_table[i].properties)) |