check-annotate-twice ( word -- word )

Vocabulary

tools.annotations.private

Inputs

word

an object

Outputs

word

an object

Definition

USING: kernel namespaces tools.annotations ;

IN: tools.annotations.private

: check-annotate-twice ( word -- word )
    dup annotated? [
        override-annotations? get
        [ dup reset ] [ cannot-annotate-twice ] if
    ] when ;