Language change: tuple slot setter words with stack effect ( value object -- ) are...

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

diff --git a/basis/ftp/server/server.factor b/basis/ftp/server/server.factor
index f1bc8adef996aff83726defec4233bec8950e1d0..2a3e82265bfb1f4ed3bd3bcf99842fe5cdec8e19 100644 (file)
--- a/basis/ftp/server/server.factor
+++ b/basis/ftp/server/server.factor
@@ -83,7 +83,7 @@ C: <ftp-disconnect> ftp-disconnect
 
 : handle-USER ( ftp-command -- )
     [
-        tokenized>> second client get (>>user)
+        tokenized>> second client get user<<
         "Please specify the password." 331 server-response
     ] [
         2drop "bad USER" ftp-error
@@ -91,7 +91,7 @@ C: <ftp-disconnect> ftp-disconnect
 
 : handle-PASS ( ftp-command -- )
     [
-        tokenized>> second client get (>>password)
+        tokenized>> second client get password<<
         "Login successful" 230 server-response
     ] [
         2drop "PASS error" ftp-error
@@ -241,7 +241,7 @@ M: ftp-disconnect handle-passive-command ( stream obj -- )
     ] if ;
 
 : expect-connection ( -- port )
-    <promise> client get (>>extra-connection)
+    <promise> client get extra-connection<<
     random-local-server
     [ [ passive-loop ] curry in-thread ]
     [ addr>> port>> ] bi ;