optimize-tail-call ( bb -- )

Vocabulary

compiler.cfg.tco

Inputs

bb

an object

Outputs

None

Definition

USING: combinators kernel ;

IN: compiler.cfg.tco

: optimize-tail-call ( bb -- )
    dup tail-call? [
        {
            {
                [ dup loop-tail-call? ]
                [ convert-loop-tail-call ]
            }
            {
                [ dup word-tail-call? ]
                [ convert-word-tail-call ]
            }
            [ drop ]
        } cond
    ] [ drop ] if ;