Revert "sequences: swap stack arguments for start/start*/subseq?."

[factor.git] / core / splitting / splitting.factor

diff --git a/core/splitting/splitting.factor b/core/splitting/splitting.factor
index 9e812163adcfab784f098b86d7f5e27554e6820f..5a413b916ec6572adfe5f1cfeea37c4927f03a19 100644 (file)
--- a/core/splitting/splitting.factor
+++ b/core/splitting/splitting.factor
@@ -30,7 +30,7 @@ PRIVATE>
 : (split1) ( seq subseq snip-quot -- before after )
     [
         swap [
-            [ drop length ] [ swap start dup ] 2bi
+            [ drop length ] [ start dup ] 2bi
             [ [ nip ] [ + ] 2bi t ]
             [ 2drop f f f ]
             if