/* Copyright (C) 1995, 1996, 1997, 2000, 2001, 2003, 2004, 2006, 2008,
- * 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
+ * 2009, 2010, 2011, 2012, 2014, 2015 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
return ret;
}
-unsigned long
-scm_string_hash (const unsigned char *str, size_t len)
-{
- return narrow_string_hash (str, len);
-}
-
-unsigned long
+unsigned long
scm_i_string_hash (SCM str)
{
size_t len = scm_i_string_length (str);