 :: glob-pattern% ( root globs -- )
     globs unclip second :> ( remaining glob )
 
-    root directory-entries [| entry |
+    root glob-entries [| entry |
         entry name>> >case-fold glob matches? [
             root entry name>> append-path
             remaining entry ?glob-directory%


DEFER: glob-directory%

: ?glob-directory% ( root remaining entry -- )
    directory? [
        glob-directory%

    globs ?second :> next-glob
    next-glob dup pair? [ second ] [ drop f ] if :> next-glob-regexp

    root glob-entries [| entry |
        root entry name>> append-path
        {
            { [ next-glob not ] [ dup , ] }
