Use append-as in mime.multipart

diff --git a/basis/mime/multipart/multipart.factor b/basis/mime/multipart/multipart.factor
index 1d56c59fc0ee28d74ecb897abccc0973b7e0abf1..c464e5d67442401c3b26d980dd91bd011f79df44 100644 (file)
--- a/basis/mime/multipart/multipart.factor
+++ b/basis/mime/multipart/multipart.factor
@@ -39,7 +39,7 @@ ERROR: end-of-stream multipart ;
 
 : fill-bytes ( multipart -- multipart )
     buffer-size read
-    [ '[ _ append ] change-bytes ]
+    [ '[ _ B{ } append-as ] change-bytes ]
     [ t >>end-of-stream? ] if* ;
 
 : maybe-fill-bytes ( multipart -- multipart )
@@ -151,5 +151,5 @@ ERROR: no-content-disposition multipart ;
     dup end-of-stream?>> [ process-header parse-multipart-loop ] unless ;
 
 : parse-multipart ( separator -- mime-parts )
-    <multipart> parse-beginning fill-bytes parse-multipart-loop
-    mime-parts>> ;
+    <multipart> parse-beginning fill-bytes
+    parse-multipart-loop mime-parts>> ;