(deep-annotate) ( word quot -- )

Vocabulary

tools.annotations.private

Inputs

word	an object
quot	an object

Outputs

None

Definition

IN: tools.annotations.private

GENERIC#: (deep-annotate) 1 ( word quot -- )

Methods

USING: generic kernel tools.annotations.private ;

M: generic (deep-annotate)
    [ (deep-annotate) ] curry annotate-generic ;


USING: combinators kernel quotations sequences.deep
tools.annotations.private words ;

M: word (deep-annotate)
    prepare-annotate [ ( old -- new ) call-effect ] curry
    [ [ dup callable? ] ] dip [ when ] curry compose deep-map
    define ;