quot-uses ( obj set -- )

Vocabulary

tools.crossref.private

Inputs

obj	an object
set	a set of words

Outputs

None

Word description

Outputs a set of words referenced by the quotation and any quotations it contains.

Definition

IN: tools.crossref.private

GENERIC#: quot-uses 1 ( obj set -- )

Methods

USING: arrays tools.crossref.private ;

M: array quot-uses seq-uses ;


USING: quotations tools.crossref.private ;

M: callable quot-uses seq-uses ;


USING: accessors kernel lists namespaces sets
tools.crossref.private ;

M: cons-state quot-uses
    over visited get ?adjoin
    [ [ [ car>> ] [ cdr>> ] bi ] dip [ quot-uses ] curry bi@ ]
    [ 2drop ] if ;


USING: dlists kernel namespaces sets tools.crossref.private ;

M: dlist quot-uses
    over visited get ?adjoin
    [ [ quot-uses ] curry dlist-each ] [ 2drop ] if ;


USING: accessors fry kernel tools.crossref.private ;

M: fry-word quot-uses [ def>> ] dip seq-uses ;


USING: hashtables tools.crossref.private ;

M: hashtable quot-uses assoc-uses ;


USING: tools.crossref.private ;

M: non-sequence-assoc quot-uses assoc-uses ;


USING: kernel namespaces sequences sets tools.crossref.private ;

M: non-sequence-set quot-uses
    over visited get ?adjoin
    [ [ members ] dip [ quot-uses ] curry each ] [ 2drop ] if ;


USING: kernel tools.crossref.private ;

M: object quot-uses 2drop ;


USING: persistent.hashtables tools.crossref.private ;

M: persistent-hash quot-uses assoc-uses ;


USING: persistent.vectors tools.crossref.private ;

M: persistent-vector quot-uses seq-uses ;


USING: tools.crossref.private vectors ;

M: vector quot-uses seq-uses ;


USING: tools.crossref.private vlists ;

M: vlist quot-uses seq-uses ;


USING: accessors combinators kernel sets tools.crossref.private
words ;

M: word quot-uses
    {
        { [ over crossref? ] [ adjoin ] }
        { [ over vocabulary>> ] [ 2drop ] }
        [ [ def>> ] dip seq-uses ]
    } cond ;


USING: hashtables.wrapped tools.crossref.private ;

M: wrapped-hashtable quot-uses assoc-uses ;


USING: accessors kernel tools.crossref.private ;

M: wrapper quot-uses [ wrapped>> ] dip quot-uses ;