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

more private words

db4
Doug Coleman 2008-11-29 02:39:41 -06:00
parent eb7a344e00
commit 460ce6ec93
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -55,8 +55,6 @@ TUPLE: multipart-stream stream n leftover separator ;
stream dup [ read-n ] [ separator>> ] bi quot1 multipart-step stream dup [ read-n ] [ separator>> ] bi quot1 multipart-step
swap [ drop stream quot1 multipart-step-loop ] when ; inline recursive swap [ drop stream quot1 multipart-step-loop ] when ; inline recursive
PRIVATE>
SYMBOL: header SYMBOL: header
SYMBOL: parsed-header SYMBOL: parsed-header
SYMBOL: magic-separator SYMBOL: magic-separator
@ -95,6 +93,8 @@ TUPLE: uploaded-file path filename name ;
uploaded-file boa , uploaded-file boa ,
] if ; ] if ;
PRIVATE>
: parse-multipart ( stream -- array ) : parse-multipart ( stream -- array )
[ [
"\r\n" <multipart-stream> "\r\n" <multipart-stream>