shebang? ( lexer -- lexer ? )

Vocabulary

lexer.private

Inputs

lexer

an object

Outputs

lexer	an object
?	an object

Definition

USING: accessors kernel math sequences ;

IN: lexer.private

: shebang? ( lexer -- lexer ? )
    dup line>> 1 = [
        dup column>> zero?
        [ dup line-text>> "#!" head? ] [ f ] if
    ] [ f ] if ; inline