 
 [
     jit->r
-    0 BL rc-relative-ppc-3 rt-xt
+    0 BL rc-relative-ppc-3 rt-xt jit-rel
     jit-r>
 ] jit-dip jit-define
 
 [
     jit-2>r
-    0 BL rc-relative-ppc-3 rt-xt
+    0 BL rc-relative-ppc-3 rt-xt jit-rel
     jit-2r>
 ] jit-2dip jit-define
 
 [
     jit-3>r
-    0 BL rc-relative-ppc-3 rt-xt
+    0 BL rc-relative-ppc-3 rt-xt jit-rel
     jit-3r>
 ] jit-3dip jit-define
 


[ 0 BL rc-relative-ppc-3 rt-xt-direct jit-rel ] jit-word-call jit-define

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

[
    3 ds-reg 0 LWZ

    3 ds-reg 0 STW ;

: define-jit-compare ( insn word -- )
    [ [ jit-compare ] curry ] dip define-sub-primitive ;

\ BEQ \ eq? define-jit-compare
\ BGE \ fixnum>= define-jit-compare
