globs: fix glob pattern on directories.

diff --git a/basis/globs/globs.factor b/basis/globs/globs.factor
index 7e86708ba40716831f421ec9f4f105e5b6f6c3d8..e72cd007d6dd344bc706282da421e01f1dcd6301 100644 (file)
--- a/basis/globs/globs.factor
+++ b/basis/globs/globs.factor
@@ -2,8 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays combinators combinators.short-circuit
 io.directories io.files io.files.info io.pathnames kernel locals
-make peg.ebnf regexp regexp.combinators sequences splitting
-strings system unicode ;
+make peg.ebnf regexp regexp.combinators sequences strings system
+unicode ;
 IN: globs
 
 : not-path-separator ( -- sep )
@@ -62,10 +62,10 @@ DEFER: glob-directory%
     directory-entries [ name>> "." head? ] reject ;
 
 : ?glob-directory% ( root remaining entry -- )
-    directory? [
-        glob-directory%
+    over empty? [
+        2drop ,
     ] [
-        empty? [ , ] [ drop ] if
+        directory? [ glob-directory% ] [ 2drop ] if
     ] if ;
 
 :: glob-wildcard% ( root globs -- )