mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Use `scm_is_eq' in filesys.c.

Browse source 
* libguile/filesys.c (is_file_name_separator): Use `scm_is_eq' instead
  of `=='.  Fixes <http://hydra.nixos.org/build/4261579>.
This commit is contained in:
Ludovic Courtès 2013-03-04 08:56:47 +01:00
parent 994d87be35
commit 69b6da07c3
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/filesys.c
View file

@ -463,10 +463,10 @@ static int fstat_Win32 (int fdes, struct stat *buf)
static int static int
is_file_name_separator (SCM c) is_file_name_separator (SCM c)
{ {
if (c == SCM_MAKE_CHAR ('/')) if (scm_is_eq (c, SCM_MAKE_CHAR ('/')))
return 1; return 1;
#ifdef __MINGW32__ #ifdef __MINGW32__
if (c == SCM_MAKE_CHAR ('\\')) if (scm_is_eq (c, SCM_MAKE_CHAR ('\\')))
return 1; return 1;
#endif #endif
return 0; return 0;