core: Add the shuffler words but without primitives.

[factor.git] / basis / cpu / x86 / x86.factor

diff --git a/basis/cpu/x86/x86.factor b/basis/cpu/x86/x86.factor
index 6a6e5dca3fce3284ddb8c5dc2843e481d7874b91..e823ad72b5ca96eea2d2017d716eee63e62f79d2 100644 (file)
--- a/basis/cpu/x86/x86.factor
+++ b/basis/cpu/x86/x86.factor
@@ -409,7 +409,7 @@ M: x86 %convert-integer ( dst src c-type -- )
             { c:int    [ 32 %alien-signed-getter ] }
             { c:uint   [ 32 [ 2drop ] %alien-integer-getter ] }
         } case
-    ] [ [ drop ] 2dip %copy ] ?if ;
+    ] [ nipd %copy ] ?if ;
 
 M: x86 %load-memory ( dst base displacement scale offset rep c-type -- )
     (%memory) (%load-memory) ;