with-simplified-def-use ( quot -- real-usages )

Vocabulary

compiler.tree.def-use.simplified.private

Inputs

quot

an object

Outputs

real-usages

an object

Definition

USING: kernel namespaces sets ;

IN: compiler.tree.def-use.simplified.private

: with-simplified-def-use ( quot -- real-usages )
    [
        HS{ } clone visited set HS{ } clone accum set call
        accum get members
    ] with-scope ; inline