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

use assert-sequence= in mime.multipart

db4
Doug Coleman 2009-01-20 16:35:09 -06:00
parent ea133f0430
commit 4306656556
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -139,13 +139,16 @@ ERROR: no-content-disposition multipart ;
[ no-content-disposition ] [ no-content-disposition ]
} case ; } case ;
: read-assert= ( string -- ) : assert-sequence= ( a b -- )
[ length read ] keep assert= ; 2dup sequence= [ 2drop ] [ assert ] if ;
: read-assert-sequence= ( sequence -- )
[ length read ] keep assert-sequence= ;
: parse-beginning ( multipart -- multipart ) : parse-beginning ( multipart -- multipart )
"--" read-assert= "--" read-assert-sequence=
dup mime-separator>> dup mime-separator>>
[ read-assert= ] [ read-assert-sequence= ]
[ separator-prefix prepend >>mime-separator ] bi ; [ separator-prefix prepend >>mime-separator ] bi ;
: parse-multipart-loop ( multipart -- multipart ) : parse-multipart-loop ( multipart -- multipart )