     jit-save-context
     3 jit-switch-context
     jit-push-param ;
-
-[ jit-set-context ] \ (set-context) define-sub-primitive
 
 : jit-pop-quot-and-param ( -- )
     3 ds-reg 0 jit-load-cell

    ds-reg ds-reg cell-size SUBI
    jit-jump-quot ;

[
    jit-start-context-and-delete
] \ (start-context-and-delete) define-sub-primitive

[ "bootstrap.ppc" forget-vocab ] with-compilation-unit

    jit-push-param
    jit-jump-quot ;

: jit-delete-current-context ( -- )
    jit-load-context
    3 vm-reg MR
    "delete_context" jit-call ;

: jit-start-context-and-delete ( -- )
    jit-save-context

