 : 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
+    upload-limit get min limited-input
     binary decode-input
     parse-multipart-form-data parse-multipart ;
  

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


SYMBOL: request-limit

request-limit [ 64 1024 * ] initialize

M: http-server handle-client*
    drop [
