?glob% ( root remaining entry -- )

Vocabulary

globs.private

Inputs

root	an object
remaining	an object
entry	an object

Outputs

None

Definition

USING: io.files.info kernel make sequences ;

IN: globs.private

: ?glob% ( root remaining entry -- )
    over empty?
    [ 2drop , ] [ directory? [ glob% ] [ 2drop ] if ] if ;