basis: ERROR: changes.

[factor.git] / basis / mime / multipart / multipart.factor

diff --git a/basis/mime/multipart/multipart.factor b/basis/mime/multipart/multipart.factor
index d2797f1a6f8356bc68d44ed66a42fb83f56fbaa0..20082a35c0a3322e26b1e9231b5a4d35a9106fb3 100644 (file)
--- a/basis/mime/multipart/multipart.factor
+++ b/basis/mime/multipart/multipart.factor
@@ -29,16 +29,12 @@ C: <mime-variable> mime-variable
         swap >>mime-separator
         H{ } clone >>mime-parts ;
 
-ERROR: bad-header bytes ;
-
 : mime-write ( sequence -- )
     >byte-array write ;
 
 : parse-headers ( string -- hashtable )
     string-lines harvest [ parse-header-line ] map >hashtable ;
 
-ERROR: end-of-stream multipart ;
-
 : fill-bytes ( multipart -- multipart )
     buffer-size read
     [ '[ _ B{ } append-as ] change-bytes ]
@@ -120,7 +116,7 @@ ERROR: unknown-content-disposition multipart ;
             [ dup mime-separator>> dump-string >>name-content ] dip
             >>name dup save-mime-part
         ] [
-             unknown-content-disposition
+             throw-unknown-content-disposition
         ] if*
     ] if* ;
 
@@ -132,7 +128,7 @@ ERROR: no-content-disposition multipart ;
             parse-content-disposition-form-data >>content-disposition
             parse-form-data
         ] }
-        [ no-content-disposition ]
+        [ throw-no-content-disposition ]
     } case ;
 
 : read-assert-sequence= ( sequence -- )