mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

simplify scm_stat on mingw

Browse source 
* libguile/filesys.c (scm_stat): Don't munge the filename on MinGW;
  gnulib does that for us.
This commit is contained in:
Andy Wingo 2013-02-24 14:07:13 +01:00
parent 4bab7f01be
commit c21939bc24
1 changed files with 0 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/filesys.c
View file

@ -541,12 +541,6 @@ SCM_DEFINE (scm_stat, "stat", 1, 1, 0,
else if (scm_is_string (object)) else if (scm_is_string (object))
{ {
char *file = scm_to_locale_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)); SCM_SYSCALL (rv = stat_or_stat64 (file, &stat_temp));
free (file); free (file);
} }