From c21939bc247e2e36a5d698c60ba4a03cd3bbaf38 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sun, 24 Feb 2013 14:07:13 +0100
Subject: [PATCH] simplify scm_stat on mingw

* libguile/filesys.c (scm_stat): Don't munge the filename on MinGW;
  gnulib does that for us.
---
 libguile/filesys.c | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/libguile/filesys.c b/libguile/filesys.c
index 2c4168eea..422a44cac 100644
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -541,12 +541,6 @@ SCM_DEFINE (scm_stat, "stat", 1, 1, 0,
   else if (scm_is_string (object))
     {
       char *file = scm_to_locale_string (object);
-#ifdef __MINGW32__
-      char *p;
-      p = file + strlen (file) - 1;
-      while (p > file && (*p == '/' || *p == '\\'))
-	*p-- = '\0';
-#endif
       SCM_SYSCALL (rv = stat_or_stat64 (file, &stat_temp));
       free (file);
     }