mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

Use `scm_is_eq' in load.c.

Browse source 
* libguile/load.c (is_file_name_separator): Use `scm_is_eq' instead of `=='.
This commit is contained in:
Ludovic Courtès 2013-03-07 00:03:36 +01:00
parent 0c8a2c380d
commit e6a7a86d7e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/load.c
View file

@ -456,10 +456,10 @@ scm_c_string_has_an_ext (char *str, size_t len, SCM extensions)
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;