diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-01-05 16:32:48 -0800 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-01-07 09:18:36 -0800 |
| commit | 247a56fa5a00e3e2c373ab30762bd119fc250a07 (patch) | |
| tree | 1a85f8fa7fab253878a92785410ab2a0c77ab134 /libguile/hash.c | |
| parent | ad5cbc470f2cc29d63a735871883a9436e0915d5 (diff) | |
| download | guile-247a56fa5a00e3e2c373ab30762bd119fc250a07.tar.gz | |
hash.c cleanup
* libguile/hash.c (scm_hasher): Remove needless remember_upto_here.
Diffstat (limited to 'libguile/hash.c')
| -rw-r--r-- | libguile/hash.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/hash.c b/libguile/hash.c index 78a84a406..e1591d298 100644 --- a/libguile/hash.c +++ b/libguile/hash.c @@ -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 * 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 = scm_i_string_hash (obj) % n; - scm_remember_upto_here_1 (obj); return hash; } case scm_tc7_symbol: |