collect ( accum variables -- accum ? )

Vocabulary

xml.syntax.private

Inputs

accum	an object
variables	an object

Outputs

accum	an object
?	an object

Definition

USING: combinators kernel sequences ;

IN: xml.syntax.private

: collect ( accum variables -- accum ? )
    {
        { [ dup empty? ] [ drop f ] }
        { [ dup [ ] all? ] [ >search-hash suffix! t ] }
        {
            [ dup [ not ] all? ]
            [ length suffix! \ nenum suffix! t ]
        }
        [
            drop
            "XML interpolation contains both fry and locals"
            throw
        ]
    } cond ;