summaryrefslogtreecommitdiff
path: root/libguile/load.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-03-07 00:03:36 +0100
committerLudovic Courtès <ludo@gnu.org>2013-03-07 00:05:46 +0100
commite6a7a86d7ec9fe1dcb77686ca549766e1641a961 (patch)
treee7a2a24f2a12bab1093848bf7a3251f4cf94ad07 /libguile/load.c
parent0c8a2c380d705a5113f01d5f8e042897969ca844 (diff)
downloadguile-e6a7a86d7ec9fe1dcb77686ca549766e1641a961.tar.gz
Use `scm_is_eq' in load.c.
* libguile/load.c (is_file_name_separator): Use `scm_is_eq' instead of `=='.
Diffstat (limited to 'libguile/load.c')
-rw-r--r--libguile/load.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/load.c b/libguile/load.c
index f2af6c83b..8d50b21b0 100644
--- a/libguile/load.c
+++ b/libguile/load.c
@@ -456,10 +456,10 @@ scm_c_string_has_an_ext (char *str, size_t len, SCM extensions)
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;