terminfo-path ( name -- path )

Vocabulary

terminfo

Inputs

name

an object

Outputs

path

an object

Definition

USING: io.files io.pathnames kernel sequences ;

IN: terminfo

: terminfo-path ( name -- path )
    terminfo-relative-path terminfo-dirs
    [ swap append-path ] with map [ file-exists? ] find nip ;