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

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

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

revision 1.54 by mvo, Sat Apr 5 19:10:23 2003 UTC revision 1.55 by mdj, Sat Apr 5 20:45:17 2003 UTC
# Line 269  rehash_after_gc (void *dummy1 SCM_UNUSED Line 269  rehash_after_gc (void *dummy1 SCM_UNUSED
269    if (!SCM_NULLP (to_rehash))    if (!SCM_NULLP (to_rehash))
270      {      {
271        SCM h = to_rehash, last;        SCM h = to_rehash, last;
272          /* important to clear to_rehash here so that we don't get stuck
273             in an infinite loop if scm_i_rehash causes GC */
274          to_rehash = SCM_EOL;
275        do        do
276          {          {
277            scm_i_rehash (h,            scm_i_rehash (h,
# Line 282  rehash_after_gc (void *dummy1 SCM_UNUSED Line 285  rehash_after_gc (void *dummy1 SCM_UNUSED
285        /* move tables back to weak_hashtables */        /* move tables back to weak_hashtables */
286        SCM_SET_HASHTABLE_NEXT (last, weak_hashtables);        SCM_SET_HASHTABLE_NEXT (last, weak_hashtables);
287        weak_hashtables = to_rehash;        weak_hashtables = to_rehash;
       to_rehash = SCM_EOL;  
288      }      }
289    return 0;    return 0;
290  }  }

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

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