globs: removing glob-parent-directory.

diff --git a/basis/globs/globs-tests.factor b/basis/globs/globs-tests.factor
index c048af9eb615415a6d805edb7f9de494ed9b64ca..f2ad950cbc3ef149eaea88b0e43b3f234c212505 100755 (executable)
--- a/basis/globs/globs-tests.factor
+++ b/basis/globs/globs-tests.factor
@@ -81,12 +81,3 @@ IN: globs.tests
         ] cleanup-unique-directory
     ] with-temp-directory
 ] 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

diff --git a/basis/globs/globs.factor b/basis/globs/globs.factor
index a22330ffa48762472a881c7ce968f83188c7e040..67fe73ae8b2531e1f14135b8745dd7479df72455 100644 (file)
--- a/basis/globs/globs.factor
+++ b/basis/globs/globs.factor
@@ -145,7 +145,3 @@ PRIVATE>
 
 : glob-directory ( glob -- files )
     glob-path [ glob-directory% ] { } make ;
-
-: glob-parent-directory ( glob -- parent-directory )
-    path-separator split harvest dup [ glob-pattern? ] find drop head
-    path-separator join ;