ast-cascade

Vocabulary

smalltalk.ast

Definition

USING: arrays ;

IN: smalltalk.ast

TUPLE: ast-cascade receiver { messages array initial: { } } ;

Methods

USING: accessors kernel sequences smalltalk.ast
smalltalk.compiler.assignment ;

M: ast-cascade assigned-locals
    [ receiver>> assigned-locals ]
    [ messages>> assigned-locals ] bi append ;


USING: accessors combinators kernel sequences smalltalk.ast
smalltalk.compiler smalltalk.selectors ;

M: ast-cascade compile-ast
    [ receiver>> compile-ast ] [
        messages>> [
            [ compile-arguments \ dip ]
            [ selector>> selector>generic ] bi [ ] 3sequence
        ] with map unclip-last [ [ [ drop ] append ] map ] dip
        suffix cleave>quot
    ] 2bi append ;


USING: accessors combinators.short-circuit smalltalk.ast
smalltalk.compiler.return ;

M: ast-cascade need-return-continuation?
    {
        [ receiver>> need-return-continuation? ]
        [ messages>> need-return-continuation? ]
    } 1|| ;