core: Add the shuffler words but without primitives.

[factor.git] / basis / sequences / generalizations / generalizations-tests.factor

diff --git a/basis/sequences/generalizations/generalizations-tests.factor b/basis/sequences/generalizations/generalizations-tests.factor
index f16b1b4e862e4732bbc599d7b84fe20bd3cf4131..a0e3b02b7591be1c1a5e5bb1fb0806e68b395e42 100644 (file)
--- a/basis/sequences/generalizations/generalizations-tests.factor
+++ b/basis/sequences/generalizations/generalizations-tests.factor
@@ -36,12 +36,10 @@ IN: sequences.generalizations.tests
     [ 4 nappend print ] 4 0 mnmap ;
 : nproduce-as-test ( n -- a b )
     [ dup zero? not ]
-    [ [ 2 - ] [ ] [ 1 - ] tri ] { } B{ } 2 nproduce-as
-    [ drop ] 2dip ;
+    [ [ 2 - ] [ ] [ 1 - ] tri ] { } B{ } 2 nproduce-as nipd ;
 : nproduce-test ( n -- a b )
     [ dup zero? not ]
-    [ [ 2 - ] [ ] [ 1 - ] tri ] 2 nproduce
-    [ drop ] 2dip ;
+    [ [ 2 - ] [ ] [ 1 - ] tri ] 2 nproduce nipd ;
 
 { "A1a!
 B2b@