suitable-mode? ( file-name first-line mode -- ? )

Vocabulary

xmode.catalog

Inputs

file-name	an object
first-line	an object
mode	an object

Outputs

?

an object

Definition

USING: accessors kernel ;

IN: xmode.catalog

: suitable-mode? ( file-name first-line mode -- ? )
    [ nip ] 2keep first-line-glob>> ?matches
    [ 2drop t ] [ file-name-glob>> ?matches ] if ;