iterate-directory-entries ( ... iter quot: ( ... directory-entry -- ... obj/f ) -- ... obj/f )

Vocabulary

io.directories.private

Inputs

iter	an object
quot	a quotation with stack effect ( ... directory-entry -- ... obj/f )

Outputs

obj/f

an object

Definition

USING: kernel ;

IN: io.directories.private

: iterate-directory-entries
    ( ... iter quot: ( ... directory-entry -- ... obj/f ) -- ... obj/f )
    over next-directory-entry [
        over curry 2dip [ iterate-directory-entries ] 2curry
        unless*
    ] [ 2drop f ] if* ; inline recursive