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

globs: removing glob-parent-directory.

locals-and-roots
John Benediktsson 2016-03-27 18:54:38 -07:00
parent 8fdfc7f973
commit ffbd9e4754
2 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/globs/globs-tests.factor
View File

@ -81,12 +81,3 @@ IN: globs.tests
] cleanup-unique-directory ] cleanup-unique-directory
] with-temp-directory ] with-temp-directory
] unit-test ] unit-test
${ { "foo" "bar" } path-separator join }
[ { "foo" "bar" "ba?" } path-separator join glob-parent-directory ] unit-test
{ "foo" }
[ { "foo" "b?r" "bas" } path-separator join glob-parent-directory ] unit-test
{ "" }
[ { "f*" "bar" "bas" } path-separator join glob-parent-directory ] unit-test

4
basis/globs/globs.factor
View File

@ -145,7 +145,3 @@ PRIVATE>
: glob-directory ( glob -- files ) : glob-directory ( glob -- files )
glob-path [ glob-directory% ] { } make ; glob-path [ glob-directory% ] { } make ;
: glob-parent-directory ( glob -- parent-directory )
path-separator split harvest dup [ glob-pattern? ] find drop head
path-separator join ;