From c15d304bfb879416f45cf113490d5aa069b9e4ee Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 26 Aug 2022 00:43:22 -0400
Subject: [PATCH] sequences.extras: fix stack effects

---
 extra/sequences/extras/extras.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index e80efa54ba..d9d751c774 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -672,7 +672,7 @@ PRIVATE>
 
 : move-unsafe-of ( seq to from -- seq )
     2dup = [
-        3drop
+        2drop
     ] [
         overd nth-unsafe-of set-nth-unsafe-of
     ] if ; inline
@@ -686,7 +686,7 @@ PRIVATE>
 
 : open-slice-of ( seq shift from -- seq )
     over 0 = [
-        3drop
+        2drop
     ] [
         [ ] [ drop [ length ] dip + ] 3bi
         [ pick length [ over - ] dip move-backward-of ] dip
-- 
2.34.1