foldable-call? ( #call word -- ? )

Vocabulary

compiler.tree.propagation.simple

Inputs

#call	an object
word	an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel words ;

IN: compiler.tree.propagation.simple

: foldable-call? ( #call word -- ? )
    {
        [ nip foldable? ]
        [ drop literal-inputs? ]
        [ input-classes-match? ]
    } 2&& ;