Fix hi-tag-or-tuple PICs

diff --git a/basis/cpu/x86/bootstrap.factor b/basis/cpu/x86/bootstrap.factor
index 0e05c23a2de72923712bfa13e178477d7d28be3e..814cb9416be142bbb5378aab9b94c1bc4fea9dc6 100644 (file)
--- a/basis/cpu/x86/bootstrap.factor
+++ b/basis/cpu/x86/bootstrap.factor
@@ -210,12 +210,12 @@ big-endian off
         ! Set temp1 to 0 for objects, and 4 or 8 for tuples
         temp1 1 tag-fixnum AND
         bootstrap-cell {
-            { 4 [ temp1 2 SHL ] }
-            { 8 [ temp1 3 SHL ] }
+            { 4 [ temp1 1 SHR ] }
+            { 8 [ ] }
         } case
         ! Load header cell or tuple layout cell
         temp1 temp0 temp1 [+] MOV
-    ] [ ] make [ length JNE ] [ % ] bi
+    ] [ ] make [ length JL ] [ % ] bi
 ] pic-hi-tag-tuple jit-define
 
 [