containing-directory ( path -- path' )

Vocabulary

io.directories

Inputs

path

an object

Outputs

path'

an object

Definition

USING: io.files.info io.pathnames kernel ;

IN: io.directories

: containing-directory ( path -- path' )
    dup file-info directory? [ parent-directory ] unless ;