check-escape-rule ( rule -- ? )

Vocabulary

xmode.marker

Inputs

rule

an object

Outputs

?

an object

Definition

USING: accessors kernel namespaces xmode.marker.state ;

IN: xmode.marker

: check-escape-rule ( rule -- ? )
    escape-rule>> [ find-escape-rule ] unless* dup [
        dup rule-start-matches? [
            swap handle-rule-start delegate-end-escaped? toggle
            t
        ] [ drop f ] if*
    ] when ;