make-descriptive ( word -- )
Descriptive errors

Prev:	descriptive-error ( args underlying word -- * )
Next:	DESCRIPTIVE:

Vocabulary
descriptive

Inputs

word

a word

Outputs
None

Word description
Makes the word wrap errors in descriptive-error instances.

Definition

USING: accessors descriptive.private effects kernel
tools.annotations ;

IN: descriptive

: make-descriptive ( word -- )
    dup [ ] [ def>> ] [ stack-effect ] tri [descriptive]
    [ [ drop ] ] dip [ ] curry compose annotate ;