change ERROR: words from throw-foo back to foo.

[factor.git] / basis / ftp / server / server.factor

diff --git a/basis/ftp/server/server.factor b/basis/ftp/server/server.factor
index f3d4b708893110e9c227e580fb4db0a081977bff..63ceec6d76fa80eae424b609b8a8bce485c40a9f 100644 (file)
--- a/basis/ftp/server/server.factor
+++ b/basis/ftp/server/server.factor
@@ -111,7 +111,7 @@ ERROR: type-error type ;
     >upper {
         { "IMAGE" [ "Binary" ] }
         { "I" [ "Binary" ] }
-        [ throw-type-error ]
+        [ type-error ]
     } case ;
 
 : handle-TYPE ( obj -- )