find-escape-rule ( -- rule )

Vocabulary

xmode.marker

Inputs

None

Outputs

rule

an object

Definition

USING: accessors kernel namespaces xmode.marker.state ;

IN: xmode.marker

: find-escape-rule ( -- rule )
    context get
    [ in-rule-set>> escape-rule>> ]
    [ parent>> in-rule-set>> [ escape-rule>> ] ?call ] ?unless ;