diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-01-11 22:11:17 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-01-11 22:11:17 +0100 |
| commit | 894d0b894daae001495c748b3352cd79918d3789 (patch) | |
| tree | 0a79ad9cbb38ed94e733cc008d51e5a682f11ba7 /libguile/hash.c | |
| parent | 5943a62042432b86d757200ef595d7aebb5c9bac (diff) | |
| download | guile-894d0b894daae001495c748b3352cd79918d3789.tar.gz | |
Deprecate 'scm_string_hash'.
This function has been unused internally for some time and is undocumented.
* libguile/hash.c (scm_string_hash): Wrap if #if SCM_ENABLE_DEPRECATED
== 1.
* libguile/hash.h (scm_string_hash): Likewise, and replace SCM_API with
SCM_DEPRECATED.
Diffstat (limited to 'libguile/hash.c')
| -rw-r--r-- | libguile/hash.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/libguile/hash.c b/libguile/hash.c index 342931051..e5568ee47 100644 --- a/libguile/hash.c +++ b/libguile/hash.c @@ -1,5 +1,5 @@ /* Copyright (C) 1995, 1996, 1997, 2000, 2001, 2003, 2004, 2006, 2008, - * 2009, 2010, 2011, 2012, 2014 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 @@ -47,7 +47,9 @@ extern double floor(); #define SCM_MIN(A, B) ((A) < (B) ? (A) : (B)) -unsigned long +#if SCM_ENABLE_DEPRECATED == 1 + +unsigned long scm_string_hash (const unsigned char *str, size_t len) { /* from suggestion at: */ @@ -59,6 +61,8 @@ scm_string_hash (const unsigned char *str, size_t len) return h; } +#endif + unsigned long scm_i_string_hash (SCM str) { |