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

Vocabulary

parser-combinators

Inputs

str	an object
head	an object
ignore-case	an object

Outputs

newstr	an object
?	an object

Definition

USING: kernel sequences ;

IN: parser-combinators

: ?string-head ( str head ignore-case -- newstr ? )
    [ 2dup ] dip string-head?
    [ length tail-slice t ] [ drop f ] if ;