define-sub-primitive ( quot word -- )

Vocabulary

bootstrap.image.private

Inputs

quot	a quotation
word	a word

Outputs

None

Word description

Defines a sub primitive by running the quotation which is supposed to output assembler code. The word is then used to call the assembly.

See also

sub-primitives

Definition

USING: arrays assocs kernel namespaces ;

IN: bootstrap.image.private

: define-sub-primitive ( quot word -- )
    [ make-jit 3array ] dip sub-primitives get set-at ;