(fold-call) ( #call word -- info )


Vocabulary
compiler.tree.propagation.simple

Inputs
#callan object
wordan object


Outputs
infoan object


Definition
USING: accessors compiler.tree.propagation.info continuations
kernel sequences ;

IN: compiler.tree.propagation.simple

: (fold-call) ( #call word -- info )
[ [ out-d>> ] [ in-d>> [ value-info literal>> ] map ] bi ]
[ [ execute ] curry ] bi*
[ with-datastack [ <literal-info> ] map nip ] 2curry
[ drop length [ object-info ] replicate ] recover ;