fry: slight cleanup of shufflers

diff --git a/core/fry/fry.factor b/core/fry/fry.factor
index d083094aa12f56a09e20a192ccddfa4bead5a511..590768019749c410a116cc8917bf5b9ca14b02b1 100644 (file)
--- a/core/fry/fry.factor
+++ b/core/fry/fry.factor
@@ -104,7 +104,7 @@ TUPLE: dredge-fry-state
     V{ } clone V{ } clone dredge-fry-state boa ; inline
 
 : input-slices ( n i state -- head tail )
-    input>> [ <slice> ] [ nipd swap 1 + tail-slice ] 3bi ; inline
+    input>> [ <slice> ] [ spin drop 1 + tail-slice ] 3bi ; inline
 
 : push-head-slice ( head state -- )
     quot>> [ push-all ] [ \ _ swap push ] bi ; inline