Fix problems with Windows file names that use backslashes.
authorEli Zaretskii <eliz@gnu.org>
Thu, 3 Jul 2014 17:58:19 +0000 (20:58 +0300)
committerEli Zaretskii <eliz@gnu.org>
Thu, 3 Jul 2014 17:58:19 +0000 (20:58 +0300)
commit9235f805fa0bacc02a6ddaeceb9867cb37d01d85
tree9a8a3333ad25ec7e302e511ffb6747fee119a95d
parent9dc3fc4dd474ce4da6a45dcf197e1f99a9a7047a
Fix problems with Windows file names that use backslashes.

* libguile/load.c (scm_i_mirror_backslashes): New function.
  (scm_init_load_path): Call it to produce MS-Windows file names
  with forward slashes.
  (FILE_NAME_SEPARATOR_STRING): Define as "/" on all platforms.

* libguile/load.h (scm_i_mirror_backslashes): Add prototype.

* libguile/init.c (scm_boot_guile): Call scm_i_mirror_backslashes
  on argv[0].

* libguile/filesys.c (scm_getcwd): Call scm_i_mirror_backslashes
  on the directory name returned by getcwd.

* test-suite/tests/ports.test ("file name separators"): New test.
libguile/filesys.c
libguile/init.c
libguile/load.c
libguile/load.h
module/ice-9/boot-9.scm
test-suite/tests/ports.test