From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 26 Aug 2022 04:43:22 +0000 (-0400)
Subject: sequences.extras: fix stack effects
X-Git-Tag: 0.99~582
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=c15d304bfb879416f45cf113490d5aa069b9e4ee

sequences.extras: fix stack effects
---

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