rule-start-matches? ( rule -- match-count/f )

Vocabulary

xmode.marker

Inputs

rule

an object

Outputs

match-count/f

an object

Definition

USING: accessors kernel xmode.marker.private ;

IN: xmode.marker

:: rule-start-matches? ( rule -- match-count/f )
    rule start>> dup rule can-match-here? [
        rest-of-line swap text>> dup fixup-end?
        [ rule fixup-end/text-matches? ] [ text-matches? ] if
    ] [ drop f ] if ;