diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-03-07 00:03:36 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-03-07 00:05:46 +0100 |
| commit | e6a7a86d7ec9fe1dcb77686ca549766e1641a961 (patch) | |
| tree | e7a2a24f2a12bab1093848bf7a3251f4cf94ad07 /libguile/load.c | |
| parent | 0c8a2c380d705a5113f01d5f8e042897969ca844 (diff) | |
| download | guile-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.c | 4 |
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; |