?parent-directory ( path -- path'/f )

Vocabulary

io.directories

Inputs

path

an object

Outputs

path'/f

an object

Definition

USING: io.pathnames kernel ;

IN: io.directories

: ?parent-directory ( path -- path'/f )
    dup parent-directory 2dup = [ 2drop f ] [ nip ] if ;