diff options
Diffstat (limited to 'libguile/read.c')
-rw-r--r-- | libguile/read.c | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/libguile/read.c b/libguile/read.c index 52c4dc265..d61723efb 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -26,9 +26,6 @@ #include <stdio.h> #include <ctype.h> #include <string.h> -#ifdef HAVE_STRINGS_H -# include <strings.h> -#endif #include "libguile/_scm.h" #include "libguile/chars.h" @@ -182,30 +179,6 @@ static SCM *scm_read_hash_procedures; (((_chr) <= UCHAR_MAX) ? tolower (_chr) : (_chr)) -#ifndef HAVE_STRNCASECMP -/* XXX: Use Gnulib's `strncasecmp ()'. */ - -static int -strncasecmp (const char *s1, const char *s2, size_t len2) -{ - while (*s1 && *s2 && len2 > 0) - { - int c1 = *s1, c2 = *s2; - - if (CHAR_DOWNCASE (c1) != CHAR_DOWNCASE (c2)) - return 0; - else - { - ++s1; - ++s2; - --len2; - } - } - return !(*s1 || *s2 || len2 > 0); -} -#endif - - /* Helper function similar to `scm_read_token ()'. Read from PORT until a whitespace is read. Return zero if the whole token could fit in BUF, non-zero otherwise. */ |