call<return ( #call-recursive n -- nodes )

Vocabulary

compiler.tree.normalization

Inputs

#call-recursive	an object
n	an object

Outputs

nodes

an object

Definition

USING: accessors kernel math namespaces sequences
stack-checker.backend ;

IN: compiler.tree.normalization

: call<return ( #call-recursive n -- nodes )
    neg dup make-values [
        [ pop-introductions [ prepend ] curry change-in-d ]
        [ [ prepend ] curry change-out-d ] bi*
    ] [ introduction-stack [ prepend ] change ] bi ;