# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1106093310 0
# Node ID e35417abe6a632cf019b3352bdb5976a2f0e770d
# Parent  4972d9082788baa6a262e39dca4cd754b5ae1019
(sweep_weak_table): Advance prev pointer when we keep a pair.

diff -r 4972d9082788 -r e35417abe6a6 src/fns.c
--- a/src/fns.c	Wed Jan 19 00:08:10 2005 +0000
+++ b/src/fns.c	Wed Jan 19 00:08:30 2005 +0000
@@ -4836,6 +4836,10 @@
 
 		  h->count = make_number (XFASTINT (h->count) - 1);
 		}
+	      else
+		{
+		  prev = idx;
+		}
 	    }
 	  else
 	    {