From 367c565ba106aea34f6208af6837d417904de55a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 28 Mar 2016 06:38:05 -0700
Subject: [PATCH] globs: use path-separator? to allow windows to split on /.

---
 basis/globs/globs.factor | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/basis/globs/globs.factor b/basis/globs/globs.factor
index 67fe73ae8b..7009b6f876 100644
--- a/basis/globs/globs.factor
+++ b/basis/globs/globs.factor
@@ -51,6 +51,11 @@ Main = Concatenation End
 
 <PRIVATE
 
+! TODO: simplify
+! TODO: handle two more test cases
+! TODO: make case-fold an option, off by default
+! TODO: maybe make case-fold an option on regexp
+
 DEFER: glob-directory%
 
 : ?glob-directory% ( root remaining entry -- )
@@ -129,7 +134,7 @@ DEFER: glob-directory%
         over glob-pattern?
     ] [
         [
-            path-separator first over last-index
+            dup [ path-separator? ] find-last drop
             [ cut rest ] [ "" swap ] if*
         ] dip swap prefix
     ] while ;