From c6a7930b38a55aa2402f4ed722a4ef460ad67810 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 15 Aug 2014 09:47:52 +0300
Subject: [PATCH] On MS-Windows, don't return file names with backslashes from
 search-path.

* libguile/load.c (search_path): On MS-Windows, convert all
  backslashes to forward slashes if the file was found on PATH.
---
 libguile/load.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/libguile/load.c b/libguile/load.c
index d4bb9ef85..74ccd088f 100644
--- a/libguile/load.c
+++ b/libguile/load.c
@@ -657,7 +657,8 @@ search_path (SCM path, SCM filename, SCM extensions, SCM require_exts,
 	  if (stat (buf.buf, stat_buf) == 0
 	      && ! (stat_buf->st_mode & S_IFDIR))
 	    {
-	      result = scm_from_locale_string (buf.buf);
+	      result =
+		scm_from_locale_string (scm_i_mirror_backslashes (buf.buf));
 	      goto end;
 	    }
 	}