top-directory? ( path -- ? )

Vocabulary

io.files.trash.unix.private

Inputs

path

an object

Outputs

?

an object

Definition

USING: accessors io.pathnames kernel unix.stat ;

IN: io.files.trash.unix.private

: top-directory? ( path -- ? )
    dup ".." append-path [ link-status ] bi@
    [ [ st_dev>> ] same? not ] [ [ st_ino>> ] same? ] 2bi or ;