with-available-uses? ( quot -- ? )

Vocabulary

compiler.cfg.gvn.avail

Inputs

quot

an object

Outputs

?

an object

Definition

USING: kernel ;

IN: compiler.cfg.gvn.avail

: with-available-uses? ( quot -- ? )
    keep swap [ available-uses? ] [ drop f ] if ; inline