shuffle.extras: fix 3keep-{1,2,3}up tests

diff --git a/extra/shuffle/extras/extras.factor b/extra/shuffle/extras/extras.factor
index ef632e74ac2d505e93fa695a2a06df207c9a1c0d..4dd56d58bc52218a43e9e944b10566344ab0543f 100644 (file)
--- a/extra/shuffle/extras/extras.factor
+++ b/extra/shuffle/extras/extras.factor
@@ -17,9 +17,9 @@ IN: shuffle.extras
 : 2keep-2up ( quot -- quot ) 2keep roll roll ; inline
 : 2keep-3up ( quot -- quot ) 2keep 5 nrot 5 nrot 5 nrot ; inline
 
-: 3keep-1up ( quot -- quot ) keep roll ; inline
-: 3keep-2up ( quot -- quot ) keep 5 nrot 5 nrot ; inline
-: 3keep-3up ( quot -- quot ) keep 6 nrot 6 nrot 6 nrot ; inline
+: 3keep-1up ( quot -- quot ) 3keep roll ; inline
+: 3keep-2up ( quot -- quot ) 3keep 5 nrot 5 nrot ; inline
+: 3keep-3up ( quot -- quot ) 3keep 6 nrot 6 nrot 6 nrot ; inline
 
 ! d is dummy, o is object to save notation space
 : dip-1up  ( ..a d quot: ( ..a -- ..b o d ) -- ..b d o )