define-combinator-primitive ( quot non-tail-quot tail-quot word -- )

Vocabulary

bootstrap.image.private

Inputs

quot	an object
non-tail-quot	an object
tail-quot	an object
word	an object

Outputs

None

Definition

USING: assocs combinators.smart kernel namespaces ;

IN: bootstrap.image.private

: define-combinator-primitive
    ( quot non-tail-quot tail-quot word -- )
    [
        [
            [ make-jit ] [ make-jit-no-params ]
            [ make-jit-no-params ] tri*
        ] output>array
    ] dip sub-primitives get set-at ;