call>return ( #call-recursive n -- #call-recursive )

Vocabulary

compiler.tree.normalization

Inputs

#call-recursive	an object
n	an object

Outputs

#call-recursive

an object

Definition

USING: accessors compiler.tree.normalization.renaming kernel
sequences ;

IN: compiler.tree.normalization

: call>return ( #call-recursive n -- #call-recursive )
    [
        [ [ in-d>> ] [ out-d>> ] bi ] [ [ head ] curry ] bi* bi@
        add-renamings
    ] [ [ tail ] curry [ change-in-d ] [ change-out-d ] bi ] 2bi
    ;