steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "globs: simpler separator regexp." 

This reverts commit 31f309a829.
windows-drag
John Benediktsson 2019-03-18 10:42:23 -07:00
parent 31f309a829
commit 1ab1ef7f68
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/globs/globs.factor
View File

@ -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> [=[