define-descriptive ( word def effect -- )

Vocabulary

descriptive

Inputs

word	an object
def	an object
effect	an object

Outputs

None

Definition

USING: descriptive.private kernel words ;

IN: descriptive

: define-descriptive ( word def effect -- )
    [ drop "descriptive-definition" set-word-prop ]
    [ [ [ dup ] 2dip [descriptive] ] keep define-declared ] 3bi
    ;