(find-up-to-root) ( path quot: ( path -- ? ) -- obj )

Vocabulary

io.directories

Inputs

path	an object
quot	a quotation with stack effect ( path -- ? )

Outputs

obj

an object

Definition

USING: kernel sequences ;

IN: io.directories

: (find-up-to-root) ( path quot: ( path -- ? ) -- obj )
    [ [ ?qualified-directory-files ] dip find swap ] 2check
    [ 2drop ] [
        [ nip ?parent-directory ] dip over
        [ (find-up-to-root) ] [ 2drop f ] if
    ] if ; inline recursive