/[guile]/guile/guile-core/libguile/procs.c
ViewVC logotype

Diff of /guile/guile-core/libguile/procs.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.68 by ttn, Thu Mar 14 03:47:42 2002 UTC revision 1.69 by hanwen, Sun Aug 4 00:17:18 2002 UTC
# Line 139  scm_mark_subr_table () Line 139  scm_mark_subr_table ()
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))

Legend:
Removed from v.1.68  
changed lines
  Added in v.1.69

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26