summaryrefslogtreecommitdiff
path: root/libguile/filesys.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-03-04 08:56:47 +0100
committerLudovic Courtès <ludo@gnu.org>2013-03-04 08:57:08 +0100
commit69b6da07c386446d16a11cc41cb64b486199413c (patch)
treee77d56be4474416a654ad7d8ac0b55224027cca6 /libguile/filesys.c
parent994d87be35769480b04c9f96085a7a0b41040c9d (diff)
downloadguile-69b6da07c386446d16a11cc41cb64b486199413c.tar.gz
Use `scm_is_eq' in filesys.c.
* libguile/filesys.c (is_file_name_separator): Use `scm_is_eq' instead of `=='. Fixes <http://hydra.nixos.org/build/4261579>.
Diffstat (limited to 'libguile/filesys.c')
-rw-r--r--libguile/filesys.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/filesys.c b/libguile/filesys.c
index f7c83e00f..cd4be792f 100644
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -463,10 +463,10 @@ static int fstat_Win32 (int fdes, struct stat *buf)
static int
is_file_name_separator (SCM c)
{
- if (c == SCM_MAKE_CHAR ('/'))
+ if (scm_is_eq (c, SCM_MAKE_CHAR ('/')))
return 1;
#ifdef __MINGW32__
- if (c == SCM_MAKE_CHAR ('\\'))
+ if (scm_is_eq (c, SCM_MAKE_CHAR ('\\')))
return 1;
#endif
return 0;