core: Add the shuffler words but without primitives.

[factor.git] / basis / stack-checker / stack-checker-tests.factor

diff --git a/basis/stack-checker/stack-checker-tests.factor b/basis/stack-checker/stack-checker-tests.factor
index 93a3957dc348efaa79559fbc6a71c8250134e0e0..267245daedc65e9584f34e5b4404d3574201e285 100644 (file)
--- a/basis/stack-checker/stack-checker-tests.factor
+++ b/basis/stack-checker/stack-checker-tests.factor
@@ -453,7 +453,7 @@ DEFER: eee'
 
 ! ensure that polymorphic checking works on recursive combinators
 : (recursive-reduce) ( identity i seq quot: ( prev elt -- next ) n -- result )
-    [ pick ] dip swap over < [
+    pickd tuck < [
         [ [ [ nth-unsafe ] dip call ] 3keep [ 1 + ] 2dip ] dip
         (recursive-reduce)
     ] [ 4drop ] if ; inline recursive