summaryrefslogtreecommitdiff
path: root/libguile/load.c
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2014-08-15 09:47:52 +0300
committerEli Zaretskii <eliz@gnu.org>2014-08-15 09:47:52 +0300
commitc6a7930b38a55aa2402f4ed722a4ef460ad67810 (patch)
treefbd051643a1082be1156a03e54b746b5671250d3 /libguile/load.c
parentcfefef6bd96294b373104e85d80bc3f4f3fb482b (diff)
downloadguile-c6a7930b38a55aa2402f4ed722a4ef460ad67810.tar.gz
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.
Diffstat (limited to 'libguile/load.c')
-rw-r--r--libguile/load.c3
1 files changed, 2 insertions, 1 deletions
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;
}
}