bootstrap.ppc: untested fix for #1319 for ppc

diff --git a/basis/bootstrap/assembler/ppc.factor b/basis/bootstrap/assembler/ppc.factor
index 469bd0e9e85a8c6ca6c6c9309e91e0e745234192..f05e4abdbb32c894949973b7be2493eacf3dbe05 100644 (file)
--- a/basis/bootstrap/assembler/ppc.factor
+++ b/basis/bootstrap/assembler/ppc.factor
@@ -828,12 +828,16 @@ IN: bootstrap.ppc
 ] \ (set-context-and-delete) define-sub-primitive
 
 : jit-start-context-and-delete ( -- )
-    jit-load-context
+    jit-save-context
+
     3 vm-reg MR
     "reset_context" jit-call
-    jit-pop-quot-and-param
+
     ctx-reg jit-switch-context
-    jit-push-param
+
+    ! Pops the quotation from the stack and puts it in register 3
+    3 ds-reg 0 jit-load-cell
+    ds-reg ds-reg cell-size SUBI
     jit-jump-quot ;
 
 [