steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use append-as in mime.multipart

db4
Doug Coleman 2010-09-08 01:56:07 -05:00
parent a19428fa72
commit 750e61117e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/mime/multipart/multipart.factor
View File

@ -39,7 +39,7 @@ ERROR: end-of-stream multipart ;
: fill-bytes ( multipart -- multipart ) : fill-bytes ( multipart -- multipart )
buffer-size read buffer-size read
[ '[ _ append ] change-bytes ] [ '[ _ B{ } append-as ] change-bytes ]
[ t >>end-of-stream? ] if* ; [ t >>end-of-stream? ] if* ;
: maybe-fill-bytes ( multipart -- multipart ) : maybe-fill-bytes ( multipart -- multipart )
@ -151,5 +151,5 @@ ERROR: no-content-disposition multipart ;
dup end-of-stream?>> [ process-header parse-multipart-loop ] unless ; dup end-of-stream?>> [ process-header parse-multipart-loop ] unless ;
: parse-multipart ( separator -- mime-parts ) : parse-multipart ( separator -- mime-parts )
<multipart> parse-beginning fill-bytes parse-multipart-loop <multipart> parse-beginning fill-bytes
mime-parts>> ; parse-multipart-loop mime-parts>> ;