Export <slot> from GOOPS

[bpt/guile.git] / libguile / hash.c

diff --git a/libguile/hash.c b/libguile/hash.c
index 740dac1..d6ddb6b 100644 (file)
--- a/libguile/hash.c
+++ b/libguile/hash.c
@@ -1,6 +1,6 @@
 /* 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
  * as published by the Free Software Foundation; either version 3 of
@@ -126,13 +126,7 @@ wide_string_hash (const scm_t_wchar *str, size_t len)
   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);