ast-message-send

Vocabulary

smalltalk.ast

Definition

USING: arrays strings ;

IN: smalltalk.ast

TUPLE: ast-message-send
    receiver
    { selector string initial: "" }
    { arguments array initial: { } } ;

Methods

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

M: ast-message-send assigned-locals
    [ receiver>> assigned-locals ]
    [ arguments>> assigned-locals ] bi append ;


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

M: ast-message-send compile-ast
    dup selector>> {
        { "ifTrue:ifFalse:" [ compile-ifTrue:ifFalse: ] }
        { "new" [ compile-new ] }
        [
            drop
            [ compile-arguments ] [ receiver>> compile-ast ]
            [ nip selector>> selector>generic ] 2tri
            [ append ] dip suffix
        ]
    } case ;


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

M: ast-message-send need-return-continuation?
    {
        [ receiver>> need-return-continuation? ]
        [ arguments>> need-return-continuation? ]
    } 1|| ;