basis: ERROR: changes.

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

diff --git a/basis/ftp/server/server.factor b/basis/ftp/server/server.factor
index 6dacaf72cc3ce2af7c7b835014d53fd456f07cf2..f3d4b708893110e9c227e580fb4db0a081977bff 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" ] }
-        [ type-error ]
+        [ throw-type-error ]
     } case ;
 
 : handle-TYPE ( obj -- )
@@ -287,9 +287,6 @@ M: ftp-disconnect handle-passive-command ( stream obj -- )
         "" not-a-plain-file
     ] if* ;
 
-ERROR: not-a-directory ;
-ERROR: no-directory-permissions ;
-
 : directory-change-success ( -- )
     "Directory successully changed." 250 server-response ;