jit-define ( quot n -- )

Vocabulary

bootstrap.image.private

Inputs

quot	a quotation
n	an integer

Outputs

None

Word description

Runs a quotation generating assembly code. The code is added to the special-objects table being constructed for the bootstrap image.

Definition

USING: assocs kernel namespaces ;

IN: bootstrap.image.private

: jit-define ( quot n -- )
    [ make-jit-no-params ] dip special-objects get set-at ;