From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 19 Jun 2022 16:01:37 +0000 (-0500)
Subject: fry: slight cleanup of shufflers
X-Git-Tag: 0.99~1368^2
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=0049749b3f681de7eb423013aabdc5b46923f0d8

fry: slight cleanup of shufflers
---

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