sequences: move-forward is impossible unless to < from

dead code

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 02eaf32819dfc1898f99520570844ef41c1a2327..f5ea188a91345914b95523ae43ae386f66ee1f70 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -931,27 +931,12 @@ PRIVATE>
         move-backward
     ] if ;
 
-: move-forward ( shift from to seq -- )
-    2over = [
-        4drop
-    ] [
-        [ [ [ ] [ nip + ] [ 2nip ] 3tri ] dip move-unsafe 1 - ] keep
-        move-forward
-    ] if ;
-
-: (open-slice) ( shift from to seq ? -- )
-    [
-        [ [ 1 - ] bi@ ] dip move-forward
-    ] [
-        [ over - ] 2dip move-backward
-    ] if ;
-
 : open-slice ( shift from seq -- )
     pick 0 = [
         3drop
     ] [
         [ ] [ nip length + ] [ 2nip ] 3tri
-        [ pick 0 > [ [ length ] keep ] dip (open-slice) ] 2dip
+        [ [ length ] keep [ over - ] 2dip move-backward ] 2dip
         set-length
     ] if ;