string-head? ( str1 str2 ignore-case -- ? )

Vocabulary

xmode.marker

Inputs

str1	an object
str2	an object
ignore-case	an object

Outputs

?

an object

Definition

USING: kernel sequences ;

IN: xmode.marker

: string-head? ( str1 str2 ignore-case -- ? )
    2over shorter?
    [ 3drop f ]
    [ [ [ nip ] [ length head-slice ] 2bi ] dip string= ] if ;