mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 04:50:28 +02:00
Code Activity

hash.c cleanup

Browse source 
* libguile/hash.c (scm_hasher): Remove needless remember_upto_here.
This commit is contained in:
Andy Wingo 2011-01-05 16:32:48 -08:00
parent ad5cbc470f
commit 247a56fa5a
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/hash.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997, 2000, 2001, 2003, 2004, 2006, 2008, 2009, 2010 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997, 2000, 2001, 2003, 2004, 2006, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -130,7 +130,6 @@ scm_hasher(SCM obj, unsigned long n, size_t d)
{ {
unsigned long hash = unsigned long hash =
scm_i_string_hash (obj) % n; scm_i_string_hash (obj) % n;
scm_remember_upto_here_1 (obj);
return hash; return hash;
} }
case scm_tc7_symbol: case scm_tc7_symbol: