if-not-visited ( value quot -- )

Vocabulary

compiler.tree.def-use.simplified.private

Inputs

value	an object
quot	an object

Outputs

None

Definition

USING: kernel namespaces sets ;

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

: if-not-visited ( value quot -- )
    over visited get ?adjoin [ call ] [ 2drop ] if ; inline