basis: ERROR: changes.

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

diff --git a/basis/ftp/client/client.factor b/basis/ftp/client/client.factor
index c94d5a273a20bbc46e4774c61d3d606d47002acc..b676798fb05d64dab0f8aa093ac275cacfb55cc2 100644 (file)
--- a/basis/ftp/client/client.factor
+++ b/basis/ftp/client/client.factor
@@ -28,7 +28,7 @@ IN: ftp.client
 ERROR: ftp-error got expected ;
 
 : ftp-assert ( ftp-response n -- )
-    2dup [ n>> ] dip = [ 2drop ] [ ftp-error ] if ;
+    2dup [ n>> ] dip = [ 2drop ] [ throw-ftp-error ] if ;
 
 : ftp-command ( string -- ftp-response )
     ftp-send read-response ;