From 38a38a57a9922348dbc2ed36f210a951a897f388 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 29 Apr 2009 03:00:09 -0500
Subject: [PATCH] Fix hi-tag-or-tuple PICs

---
 basis/cpu/x86/bootstrap.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/cpu/x86/bootstrap.factor b/basis/cpu/x86/bootstrap.factor
index 0e05c23a2d..814cb9416b 100644
--- 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
 
 [