has-file-extension? ( path -- ? )

Vocabulary

io.pathnames

Inputs

path

an object

Outputs

?

an object

Definition

USING: kernel sequences ;

IN: io.pathnames

: has-file-extension? ( path -- ? )
    dup ?last path-separator?
    [ drop f ] [ file-name 46 swap member? ] if ;