-/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
scm_mark_all (void)
{
long j;
+ int loops;
scm_i_init_weak_vectors_for_gc ();
scm_i_init_guardians_for_gc ();
scm_mark_subr_table ();
- int loops = 0;
+ loops = 0;
while (1)
{
- loops++;
int again;
+ loops++;
/* Mark the non-weak references of weak vectors. For a weak key
alist vector, this would mark the values for keys that are