?find-mode ( file-name first-line -- mode/f )

Vocabulary

xmode.catalog

Inputs

file-name	an object
first-line	an object

Outputs

mode/f

an object

Definition

USING: assocs io.pathnames kernel ;

IN: xmode.catalog

: ?find-mode ( file-name first-line -- mode/f )
    [ file-name ] dip modes
    [ nip [ 2dup ] dip suitable-mode? ] assoc-find 2drop 2nip ;