get-file-to-directory-path ( array -- path )

Vocabulary

tools.file-to-directory

Inputs

array

an object

Outputs

path

an object

Definition

USING: kernel sequences ;

IN: tools.file-to-directory

: get-file-to-directory-path ( array -- path )
    dup length 1 = [ expected-one-path ] unless
    first dup ".modern" tail? [ expected-modern-path ] unless ;