section-close? ( string -- ? )

Vocabulary

modern

Inputs

string

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel math sequences ;

IN: modern

: section-close? ( string -- ? )
    {
        [ length 2 >= ]
        [ "\\" head? not ]
        [ ">" tail? ]
        [
            {
                [ but-last strict-upper? ]
                [ { ~quotation~ ~quotation~ } 1&& ]
            } 1||
        ]
    } 1&& ;