node-call-graph ( tail? node -- )

Vocabulary

compiler.tree.recursive.private

Inputs

tail?	an object
node	an object

Outputs

None

Definition

IN: compiler.tree.recursive.private

GENERIC: node-call-graph ( tail? node -- )

Methods

USING: accessors compiler.tree compiler.tree.recursive.private ;

M: #alien-callback node-call-graph child>> (build-call-graph) ;


USING: accessors compiler.tree compiler.tree.recursive.private
kernel sequences ;

M: #branch node-call-graph
    children>> [ (build-call-graph) ] with each ;


USING: accessors compiler.tree compiler.tree.recursive
compiler.tree.recursive.private kernel namespaces sequences ;

M: #call-recursive node-call-graph
    [ dup label>> call-site boa ] keep
    [ drop calls get push ] [ label>> calls>> push ] 2bi ;


USING: accessors compiler.tree compiler.tree.recursive.private
kernel namespaces sequences ;

M: #recursive node-call-graph
    [ label>> V{ } clone >>calls drop ] [
        [ label>> ] [ child>> build-call-graph ] bi
        call-graph-node boa children get push
    ] bi ;


USING: accessors compiler.tree compiler.tree.recursive.private
kernel ;

M: #return-recursive node-call-graph nip dup label>> return<< ;


USING: compiler.tree compiler.tree.recursive.private kernel ;

M: node node-call-graph 2drop ;