 [
     3 ds-reg 0 LWZ
     ds-reg dup 4 SUBI
-    jit-call-quot
+    jit-jump-quot
 ] f f f \ (call) define-sub-primitive
 
 [

    3 3 4 ADDI
    3 3 0 LWZ
    ds-reg dup 4 SUBI
    jit-call-quot
] rc-absolute-ppc-2/2 rt-literal 1 jit-if-jump jit-define

[


[ 0 B ] rc-relative-ppc-3 rt-xt 0 jit-word-jump jit-define

: jit-jump-quot ( -- )
    4 3 quot-xt-offset LWZ
    4 MTCTR
    BCTR ;

: jit-call-quot ( -- )
    4 3 quot-xt-offset LWZ
    4 MTLR
    BLR ;

[
    0 3 LOAD32
