already-inlined-quot? ( quot -- ? )

Vocabulary

compiler.tree.propagation.call-effect

Inputs

quot	a quotation

Outputs

?

a boolean

Word description

Some bookkeeping to make sure that crap like [ dup curry call( quot -- ) ] dup curry call( quot -- ) ] doesn't hang the compiler.

Definition

IN: compiler.tree.propagation.call-effect

GENERIC: already-inlined-quot? ( quot -- ? )

Methods

USING: accessors combinators.short-circuit
compiler.tree.propagation.call-effect kernel ;

M: composed already-inlined-quot?
    {
        [ first>> already-inlined-quot? ]
        [ second>> already-inlined-quot? ]
    } 1|| ;


USING: accessors compiler.tree.propagation.call-effect kernel ;

M: curried already-inlined-quot? quot>> already-inlined-quot? ;


USING: compiler.tree.propagation.call-effect
compiler.tree.propagation.inlining quotations ;

M: quotation already-inlined-quot? already-inlined? ;