>From b40449f0b7bbb42110c807099cb92bc99b110bb3 Mon Sep 17 00:00:00 2001
From: Florian Zumbiehl <address@hidden>
Date: Fri, 15 Mar 2013 06:53:55 +0100
Subject: [PATCH] csi dirseparator?: don't treat backslash as dir separator on
 non-windows

Make csi's dirseparator? not flag backslashes as path component separators on
non-windows, in particular so that chop-separator won't corrupt directory names
ending in backslashes.

Signed-off-by: Peter Bex <address@hidden>
---
 csi.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/csi.scm b/csi.scm
index b2b9f24..7c961b8 100644
--- a/csi.scm
+++ b/csi.scm
@@ -173,7 +173,8 @@ EOF
 ;;; Chop terminating separator from pathname:
 
 (define (dirseparator? c)
-  (or (char=? c #\\) (char=? c #\/)))
+  (or (and ##sys#windows-platform (char=? c #\\))
+      (char=? c #\/)))
 
 (define chop-separator 
   (let ([substring substring] )
-- 
1.7.12