fixed serious GC bug that's exhibited when guardians have protected

objects that survive 256 collections.
2008-12-08 01:43:23 -05:00 · 2008-12-08 01:43:23 -05:00 · 75d2756bd2
parent 1931c37f36
commit 75d2756bd2
2 changed files with 2 additions and 2 deletions
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1701
+1702
--- a/src/ikarus-collect.c
+++ b/src/ikarus-collect.c
@ -587,7 +587,7 @@ is_live(ikptr x, gc_t* gc){

 static inline int 
 next_gen(int i){
-  return ((i == generation_count) ? generation_count : (i+1));
+  return ((i == (generation_count-1)) ? i : (i+1));
 }