From e6a7a86d7ec9fe1dcb77686ca549766e1641a961 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 7 Mar 2013 00:03:36 +0100
Subject: [PATCH] Use `scm_is_eq' in load.c.

* libguile/load.c (is_file_name_separator): Use `scm_is_eq' instead of `=='.
---
 libguile/load.c | 4 ++--
 1 file 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;