From 69b6da07c386446d16a11cc41cb64b486199413c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 4 Mar 2013 08:56:47 +0100
Subject: [PATCH] Use `scm_is_eq' in filesys.c.

* libguile/filesys.c (is_file_name_separator): Use `scm_is_eq' instead
  of `=='.  Fixes <http://hydra.nixos.org/build/4261579>.
---
 libguile/filesys.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/filesys.c b/libguile/filesys.c
index f7c83e00f..cd4be792f 100644
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -463,10 +463,10 @@ static int fstat_Win32 (int fdes, struct stat *buf)
 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;