From 0049749b3f681de7eb423013aabdc5b46923f0d8 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 19 Jun 2022 11:01:37 -0500
Subject: [PATCH] fry: slight cleanup of shufflers

---
 core/fry/fry.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/fry/fry.factor b/core/fry/fry.factor
index d083094aa1..5907680197 100644
--- 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
-- 
2.34.1