sequences: define ?first and ?second.

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

diff --git a/basis/ftp/server/server.factor b/basis/ftp/server/server.factor
index c1508f8ad5886c48846d559085e750f4153fb608..369c4969a640f22d06d839d9d7f646a94d8f6129 100644 (file)
--- a/basis/ftp/server/server.factor
+++ b/basis/ftp/server/server.factor
@@ -277,7 +277,7 @@ M: ftp-disconnect handle-passive-command ( stream obj -- )
     229 server-response ;
 
 : handle-MDTM ( obj -- )
-    tokenized>> 1 swap ?nth [
+    tokenized>> ?second [
         fixup-relative-path
         dup file-info dup directory? [
             drop not-a-plain-file
@@ -300,7 +300,7 @@ ERROR: no-directory-permissions ;
     "Failed to change directory." 553 server-response ;
 
 : handle-CWD ( obj -- )
-    tokenized>> 1 swap ?nth [
+    tokenized>> ?second [
         fixup-relative-path
         dup can-serve-directory? [
             set-current-directory