prepare-annotate ( word quot -- word quot quot )

Vocabulary

tools.annotations.private

Inputs

word	an object
quot	an object

Outputs

word	an object
quot	an object
quot	an object

Definition

USING: accessors kernel words ;

IN: tools.annotations.private

: prepare-annotate ( word quot -- word quot quot )
    [ check-annotate-twice ] dip
    [ dup def>> 2dup "unannotated-def" set-word-prop ] dip ;