 
 SYMBOL: request-limit
 
-64 1024 * request-limit set-global
+request-limit [ 64 1024 * ] initialize
 
 M: http-server handle-client*
     drop [

: read-multipart-data ( request -- mime-parts )
    [ "content-type" header ]
    [ "content-length" header string>number ] bi
    upload-limit get limited-input ! throw limit
    limited-input ! eof limit
    binary decode-input
    parse-multipart-form-data parse-multipart ;
 

html.streams
html
mime.types
math.order
xml.writer ;
FROM: mime.multipart => parse-multipart ;
IN: http.server
