# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1057519788 0
# Node ID 31f2f6a2df0667e545c872975a8edec4577b024d
# Parent  327b4f3daf3003b6ec8326fb4a94b96f98554117
(sweep_weak_table): Update calls to mark_object.

diff -r 327b4f3daf30 -r 31f2f6a2df06 src/fns.c
--- a/src/fns.c	Sun Jul 06 19:29:26 2003 +0000
+++ b/src/fns.c	Sun Jul 06 19:29:48 2003 +0000
@@ -1,5 +1,5 @@
 /* Random utility Lisp functions.
-   Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 98, 99, 2000, 2001, 2002
+   Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 98, 99, 2000, 2001, 02, 2003
    Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
@@ -4748,13 +4748,13 @@
 		  /* Make sure key and value survive.  */
 		  if (!key_known_to_survive_p)
 		    {
-		      mark_object (&HASH_KEY (h, i));
+		      mark_object (HASH_KEY (h, i));
 		      marked = 1;
 		    }
 
 		  if (!value_known_to_survive_p)
 		    {
-		      mark_object (&HASH_VALUE (h, i));
+		      mark_object (HASH_VALUE (h, i));
 		      marked = 1;
 		    }
 		}