From d71e2f9577d347962c81462562167e6ab703f87b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 30 Jul 2009 05:12:40 -0500
Subject: [PATCH] cpu.x86: Fix shuffle bug. Shuffling bugs occurring in code
 that runs before optimizer/stack checker is online are only caught at runtime
 during bootstrap, what a pain

---
 basis/cpu/x86/x86.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/cpu/x86/x86.factor b/basis/cpu/x86/x86.factor
index 6e21b46fd5..5bad8e067c 100644
--- a/basis/cpu/x86/x86.factor
+++ b/basis/cpu/x86/x86.factor
@@ -281,7 +281,7 @@ M: x86.32 has-small-reg?
         { 32 [ drop t ] }
     } case ;
 
-M: x86.64 has-small-reg? drop t ;
+M: x86.64 has-small-reg? 2drop t ;
 
 : small-reg-that-isn't ( exclude -- reg' )
     [ have-byte-regs ] dip