top-directory ( path -- path' )

Vocabulary

io.files.trash.unix.private

Inputs

path

an object

Outputs

path'

an object

Definition

USING: io.pathnames kernel ;

IN: io.files.trash.unix.private

: top-directory ( path -- path' )
    [ dup top-directory? not ] [ ".." append-path ] while ;