HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0c8a2c3
)
Use `scm_is_eq' in load.c.
author
Ludovic Courtès
<ludo@gnu.org>
Wed, 6 Mar 2013 23:03:36 +0000
(
00:03
+0100)
committer
Ludovic Courtès
<ludo@gnu.org>
Wed, 6 Mar 2013 23:05:46 +0000
(
00:05
+0100)
* libguile/load.c (is_file_name_separator): Use `scm_is_eq' instead of `=='.
libguile/load.c
patch
|
blob
|
blame
|
history
diff --git
a/libguile/load.c
b/libguile/load.c
index
f2af6c8
..
8d50b21
100644
(file)
--- 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;