seq-uses ( seq set -- )

Vocabulary

tools.crossref.private

Inputs

seq	an object
set	an object

Outputs

None

Definition

USING: kernel namespaces sequences sets ;

IN: tools.crossref.private

: seq-uses ( seq set -- )
    over visited get ?adjoin
    [ [ quot-uses ] curry each ] [ 2drop ] if ; inline