sequences.extras: fix stack effects

[factor.git] / extra / sequences / extras / extras.factor

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index e80efa54ba66ed3e9c766abc7c54ba6467c6d0a7..d9d751c7747217a0f7f1f0bea9ce22a7d5b3d28f 100644 (file)
--- 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