string-head? ( str head ignore-case -- ? )

Vocabulary

parser-combinators

Inputs

str	an object
head	an object
ignore-case	an object

Outputs

?

an object

Definition

USING: kernel sequences ;

IN: parser-combinators

: string-head? ( str head ignore-case -- ? )
    2over shorter?
    [ 3drop f ] [ [ [ length head-slice ] keep ] dip string= ]
    if ;