summaryrefslogtreecommitdiff
path: root/libguile/read.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/read.c')
-rw-r--r--libguile/read.c27
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. */