more private words

2008-11-29 02:39:41 -06:00 · 2008-11-29 02:39:41 -06:00 · 460ce6ec93
parent eb7a344e00
commit 460ce6ec93
1 changed files with 2 additions and 2 deletions
--- a/basis/mime/multipart/multipart.factor
+++ b/basis/mime/multipart/multipart.factor
@ -55,8 +55,6 @@ TUPLE: multipart-stream stream n leftover separator ;
    stream dup [ read-n ] [ separator>> ] bi quot1 multipart-step
    swap [ drop stream quot1 multipart-step-loop ] when ; inline recursive

-PRIVATE>
-
 SYMBOL: header
 SYMBOL: parsed-header
 SYMBOL: magic-separator
@ -95,6 +93,8 @@ TUPLE: uploaded-file path filename name ;
        uploaded-file boa ,
    ] if ;

+PRIVATE>
+
 : parse-multipart ( stream -- array )
    [
        "\r\n" <multipart-stream>