ensure-primitive ( vocabulary word effect -- )

Vocabulary

words

Inputs

vocabulary	an object
word	an object
effect	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: words

: ensure-primitive ( vocabulary word effect -- )
    3dup
    [ drop vocabulary>> = ] [ drop nip primitive? ]
    [ [ nip "declared-effect" word-prop ] dip = ] 3tri and and
    [ 3drop ] [ invalid-primitive ] if ;