ftp.server: don't mutate addrspecs anymore

diff --git a/basis/ftp/server/server-tests.factor b/basis/ftp/server/server-tests.factor
index 2572f36cb0ef902741b54074618be6fb4dd4ad51..585728dff609555702bc00afe7491fe5c4a971c4 100644 (file)
--- a/basis/ftp/server/server-tests.factor
+++ b/basis/ftp/server/server-tests.factor
@@ -25,7 +25,7 @@ IN: ftp.server.tests
                 "ftp" >>protocol
                 "localhost" >>host
                 create-test-file >>path
-                _ call
+                @
         ]
         [ stop-server ] tri
     ] with-unique-directory drop ; inline

diff --git a/basis/ftp/server/server.factor b/basis/ftp/server/server.factor
index 73de439a0153b8b74b9afe9a1687fccbdb4f220b..9a4858337e46bd7e02c2440d8dfca47d0757417b 100644 (file)
--- a/basis/ftp/server/server.factor
+++ b/basis/ftp/server/server.factor
@@ -115,7 +115,7 @@ ERROR: type-error type ;
     ] recover ;
 
 : random-local-server ( -- server )
-    remote-address get class new 0 >>port binary <server> ;
+    remote-address get class new binary <server> ;
 
 : port>bytes ( port -- hi lo )
     [ -8 shift ] keep [ 8 bits ] bi@ ;