From b6e15afd7383dd9d96f503a55f20cfdc41117fa5 Mon Sep 17 00:00:00 2001
From: Peter Bex <address@hidden>
Date: Sat, 20 Jun 2015 14:59:54 +0200
Subject: [PATCH 3/3] Fix executable-tests on mingw-msys for path separator

---
 tests/executable-tests.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/tests/executable-tests.scm b/tests/executable-tests.scm
index 78695ec..ef391d5 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
-- 
2.1.4