diff options
author | Kevin Ryde <user42@zip.com.au> | 2006-02-03 23:49:37 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2006-02-03 23:49:37 +0000 |
commit | 71c7cfa502f92d93d6881a5b5327ab3453baf03a (patch) | |
tree | 82c696d7072b1d87f1f93310153a39451708d402 /libguile/gc-mark.c | |
parent | f14a93dfe4889a633444b40bc6514f8e9e555a31 (diff) | |
download | guile-71c7cfa502f92d93d6881a5b5327ab3453baf03a.tar.gz |
(scm_mark_all): Fix c99-isms "loops" and "again" variables.
Diffstat (limited to 'libguile/gc-mark.c')
-rw-r--r-- | libguile/gc-mark.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/gc-mark.c b/libguile/gc-mark.c index f82792509..77f3ec2af 100644 --- a/libguile/gc-mark.c +++ b/libguile/gc-mark.c @@ -1,4 +1,4 @@ -/* 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 @@ -71,6 +71,7 @@ void scm_mark_all (void) { long j; + int loops; scm_i_init_weak_vectors_for_gc (); scm_i_init_guardians_for_gc (); @@ -100,11 +101,11 @@ scm_mark_all (void) 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 |