check-end-delegate ( -- ? )

Vocabulary

xmode.marker

Inputs

None

Outputs

?

an object

Definition

USING: accessors kernel namespaces xmode.marker.state ;

IN: xmode.marker

: check-end-delegate ( -- ? )
    context get parent>> [
        in-rule>> [
            dup rule-end-matches? [
                [
                    swap handle-rule-end
                    ?end-rule mark-token add-remaining-token
                ] keep
                context get parent>> in-rule>> rule-match-token*
                next-token, pop-context seen-whitespace-end? on
                t
            ] [ check-escape-rule ] if*
        ] [ f ] if*
    ] [ f ] if* ;