sequences: rename subsequence? words to subseq? again.

[factor.git] / basis / mime / multipart / multipart.factor

diff --git a/basis/mime/multipart/multipart.factor b/basis/mime/multipart/multipart.factor
index 9a6bc0044da690df12390eca8a1d5c9fe999c7ef..6243112315978607b36b0c1d50bff751e298100e 100644 (file)
--- a/basis/mime/multipart/multipart.factor
+++ b/basis/mime/multipart/multipart.factor
@@ -42,14 +42,13 @@ C: <mime-variable> mime-variable
 
 ERROR: mime-decoding-ran-out-of-bytes ;
 : dump-until-separator ( multipart -- multipart )
-    [ ] [ bytes>> ] [ current-separator>> ] tri
-    over [ mime-decoding-ran-out-of-bytes ] unless
-    2dup subsequence-starts [
-        swapd cut-slice
+    [ ] [ current-separator>> ] [ bytes>> ] tri
+    dup [ mime-decoding-ran-out-of-bytes ] unless
+    2dup swap subseq-index [
+        cut-slice
         [ mime-write ]
         [ swap length tail-slice >>bytes ] bi*
     ] [
-        swap
         tuck [ length ] bi@ - 1 - cut-slice
         [ mime-write ]
         [ >>bytes ] bi* fill-bytes