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: io.backend kernel ;

IN: io.directories

: find-up-to-root ( path quot: ( path -- ? ) -- obj )
    [ normalize-path containing-directory ] dip
    (find-up-to-root) ; inline