(find-mount-point) ( path assoc -- object )

Vocabulary

io.files.info

Inputs

path	an object
assoc	an object

Outputs

object

an object

Definition

USING: assocs io.pathnames kernel ;

IN: io.files.info

: (find-mount-point) ( path assoc -- object )
    [ resolve-symlinks canonicalize-path-full ] dip 2dup at*
    [ 2nip ]
    [ drop [ parent-directory ] dip (find-mount-point) ] if ;