push-directory-entries ( path iter -- )

Vocabulary

io.directories.private

Inputs

path	an object
iter	an object

Outputs

None

Definition

USING: accessors continuations deques io.directories kernel
kernel.private sequences ;

IN: io.directories.private

: push-directory-entries ( path iter -- )
    { directory-iterator } declare
    [ [ qualified-directory-entries ] [ 2drop f ] recover ] dip
    [ bfs>> [ [ <reversed> ] unless ] keep ] [
        queue>> swap [ [ push-front ] [ push-back ] if ] 2curry
        each
    ] bi ;