tail-calls ( tail? node -- seq )

Vocabulary

compiler.tree.recursive.private

Inputs

tail?	an object
node	an object

Outputs

seq

an object

Definition

USING: combinators.short-circuit compiler.tree sequences ;

IN: compiler.tree.recursive.private

: tail-calls ( tail? node -- seq )
    [ { [ #phi? ] [ #return? ] [ #return-recursive? ] } 1|| ]
    map (tail-calls) ;