loop-tail-call? ( bb -- ? )

Vocabulary

compiler.cfg.tco

Inputs

bb

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit compiler.cfg
compiler.cfg.instructions compiler.utilities kernel namespaces ;

IN: compiler.cfg.tco

: loop-tail-call? ( bb -- ? )
    instructions>> penultimate
    { [ ##call? ] [ word>> cfg get label>> eq? ] } 1&& ;