diff options
author | Eli Zaretskii <eliz@gnu.org> | 2014-08-15 09:47:52 +0300 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2014-08-15 09:47:52 +0300 |
commit | c6a7930b38a55aa2402f4ed722a4ef460ad67810 (patch) | |
tree | fbd051643a1082be1156a03e54b746b5671250d3 | |
parent | cfefef6bd96294b373104e85d80bc3f4f3fb482b (diff) | |
download | guile-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.
-rw-r--r-- | libguile/load.c | 3 |
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; } } |