create-primitive ( vocab word effect vm-func inputs outputs extra-word -- )


Vocabulary
bootstrap.image.primitives

Inputs
vocaban object
wordan object
effectan object
vm-funcan object
inputsan object
outputsan object
extra-wordan object


Outputs
None

Definition


:: create-primitive
( vocab word effect vm-func inputs outputs extra-word -- )
word vocab primitive-word
:> word word vm-func primitive-quot
:> quot word quot effect define-declared
word inputs "input-classes" set-word-prop
word outputs "default-output-classes" set-word-prop
word extra-word [ ( x -- ) execute-effect ] [ drop ] if* ;