From 750e61117efae0006c364c056e1819392720ebcb Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 8 Sep 2010 01:56:07 -0500 Subject: [PATCH] Use append-as in mime.multipart --- basis/mime/multipart/multipart.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/mime/multipart/multipart.factor b/basis/mime/multipart/multipart.factor index 1d56c59fc0..c464e5d674 100644 --- 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 ) - parse-beginning fill-bytes parse-multipart-loop - mime-parts>> ; + parse-beginning fill-bytes + parse-multipart-loop mime-parts>> ;