Revert "globs: simpler separator regexp."

This reverts commit 31f309a829160c52854cefeb86a0b6a85937b2e8.

diff --git a/basis/globs/globs.factor b/basis/globs/globs.factor
index 0cb96949107094ea1f2cb68c1c1740bd8abd5504..3a540e2b23aaf52510b789752864c116c6ae4fd7 100644 (file)
--- a/basis/globs/globs.factor
+++ b/basis/globs/globs.factor
@@ -7,10 +7,10 @@ unicode multiline ;
 IN: globs
 
 : not-path-separator ( -- sep )
-    os windows? R/ [^\\/]/ R/ [^/]/ ? ; foldable
+    os windows? R/ [^\\/\\]/ R/ [^\\/]/ ? ; foldable
 
 : wild-path-separator ( -- sep )
-    os windows? R/ [^\\/][\\/]|[^\\/]/ R/ [^/][/]|[^/]/ ? ; foldable
+    os windows? R/ [^\\/\\][\\/\\]|[^\\/\\]/ R/ [^\\/][\\/]|[^\\/]/ ? ; foldable
 
 EBNF: <glob> [=[