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


Vocabulary
xmode.marker

Inputs
rulean object


Outputs
match-count/fan object


Definition
USING: accessors kernel namespaces xmode.marker.state
xmode.rules ;

IN: xmode.marker

: rule-end-matches? ( rule -- match-count/f )
dup mark-following-rule?
[ [ start>> ] keep can-match-here? 0 and ] [
[ end>> dup ] keep can-match-here? [
rest-of-line swap text>> context get end>> or
text-matches?
] [ drop f ] if
] if ;