Updating code for make and fry changes

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

diff --git a/extra/ftp/client/client.factor b/extra/ftp/client/client.factor
index 642d2ce8cd7701661d5e9bd8d197aff5c2a9a97e..9b9a2214c168da7671a88d7ac2c0798326e95fc7 100644 (file)
--- a/extra/ftp/client/client.factor
+++ b/extra/ftp/client/client.factor
@@ -154,7 +154,7 @@ GENERIC: ftp-download ( path obj -- )
 
 : with-ftp-client ( ftp-client quot -- )
     dupd '[
-        , [ ftp-login ] [ @ ] bi
+        _ [ ftp-login ] [ @ ] bi
         ftp-quit drop
     ] >r ftp-connect r> with-stream ; inline