~ chicken-core (chicken-5) 8eb73e474b24d303730c4c2ca4980aaeaaddc8e8

commit 8eb73e474b24d303730c4c2ca4980aaeaaddc8e8
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sat Jun 20 14:59:54 2015 +0200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Thu Jun 25 11:44:43 2015 +1200

    Fix executable-tests on mingw-msys for path separator
    
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/tests/executable-tests.scm b/tests/executable-tests.scm
index 78695ec8..ef391d58 100644
--- a/tests/executable-tests.scm
+++ b/tests/executable-tests.scm
@@ -2,10 +2,13 @@
 
 (include "test.scm")
 
-(use files posix)
+(use files posix data-structures)
 
 (define program-path
-  (car (command-line-arguments)))
+  (cond-expand
+    ((and windows (not cygwin))
+     (string-translate (car (command-line-arguments)) "/" "\\"))
+    (else (car (command-line-arguments)))))
 
 (define (read-symbolic-link* p)
   (cond-expand