regexp: one R/ syntax to rule them all, simpler this way.

[factor.git] / basis / globs / globs.factor

diff --git a/basis/globs/globs.factor b/basis/globs/globs.factor
index b712332419d8ba7ada0a274a7b5606755b24d334..285578073d88c3842620a41f393b23947cdefae3 100644 (file)
--- a/basis/globs/globs.factor
+++ b/basis/globs/globs.factor
@@ -7,7 +7,7 @@ strings system unicode.case ;
 IN: globs
 
 : not-path-separator ( -- sep )
-    os windows? R! [^/\\]! R! [^/]! ? ; foldable
+    os windows? R/ [^\\/\\]/ R/ [^\\/]/ ? ; foldable
 
 EBNF: <glob>