HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Non-vector 1D arrays print as #1()
[bpt/guile.git]
/
libguile
/
hash.c
diff --git
a/libguile/hash.c
b/libguile/hash.c
index
0ac67fa
..
d6ddb6b
100644
(file)
--- a/
libguile/hash.c
+++ b/
libguile/hash.c
@@
-1,5
+1,5
@@
/* Copyright (C) 1995, 1996, 1997, 2000, 2001, 2003, 2004, 2006, 2008,
/* 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
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@
-126,13
+126,7
@@
wide_string_hash (const scm_t_wchar *str, size_t len)
return ret;
}
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);
scm_i_string_hash (SCM str)
{
size_t len = scm_i_string_length (str);