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


Vocabulary
compiler.tree.propagation.simple

Inputs
#callan object
wordan 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&& ;