core: Add the shuffler words but without primitives.

[factor.git] / basis / compiler / tests / alien.factor

diff --git a/basis/compiler/tests/alien.factor b/basis/compiler/tests/alien.factor
index 08fdcf87611768b12b78d38eea45708c4b3bbccd..3e4f1490776889ff8bfb0fb791766f2aa2ce5fa8 100755 (executable)
--- a/basis/compiler/tests/alien.factor
+++ b/basis/compiler/tests/alien.factor
@@ -151,7 +151,7 @@ unit-test
 
 : multi_ffi_test_18 ( w x y z w' x' y' z' -- int int )
     [ int "f-stdcall" "ffi_test_18" { int int int int } f alien-invoke ]
-    4 ndip
+    4dip
     int "f-stdcall" "ffi_test_18" { int int int int } f alien-invoke
     gc ;
 
@@ -917,11 +917,11 @@ FUNCTION: void* bug1021_test_1 ( void* s, int x )
     ] [ 2drop ] if ; inline recursive
 
 : run-test ( alien -- seq )
-    100 33 <array> swap over
+    100 33 <array> tuck
     [
         pick swapd
         bug1021_test_1
-        -rot swap 2 fixnum+fast
+        spin 2 fixnum+fast
         set-slot
     ] curry curry 0 each-to100 ;