process-loop-ends ( loop -- )

Vocabulary

compiler.cfg.loop-detection.private

Inputs

loop

an object

Outputs

None

Definition

USING: accessors compiler.cfg.utilities deques dlists kernel
sets ;

IN: compiler.cfg.loop-detection.private

: process-loop-ends ( loop -- )
    dup ends>> members <dlist> [ push-all-front ] keep swap
    [ process-loop-block ] curry slurp/replenish-deque ;