next-directory-entry ( iter -- directory-entry/f )

Vocabulary

io.directories.private

Inputs

iter

an object

Outputs

directory-entry/f

an object

Definition

USING: accessors deques io.files.info kernel kernel.private ;

IN: io.directories.private

: next-directory-entry ( iter -- directory-entry/f )
    { directory-iterator } declare dup queue>> deque-empty?
    [ drop f ] [
        dup queue>> pop-back dup directory?
        [ [ name>> swap push-directory-entries ] keep ] [ nip ]
        if
    ] if ;