slurp/replenish-deque ( ... deque quot: ( ... obj -- ... seq ) -- ... )
Utility words used by CFG optimization

Prev:

heap-pop-while ( heap quot: ( key -- ? ) -- values )

Vocabulary
compiler.cfg.utilities

Inputs

deque	an object
quot	a quotation with stack effect ( ... obj -- ... seq )

Outputs
None

Definition

USING: deques kernel ;

IN: compiler.cfg.utilities

: slurp/replenish-deque
    ( ... deque quot: ( ... obj -- ... seq ) -- ... )
    over [ push-all-front ] curry compose slurp-deque ; inline