steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ftp.server: don't mutate addrspecs anymore

db4
Slava Pestov 2010-09-04 18:54:39 -07:00
parent afbf4e9cb2
commit cf347038bd
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ftp/server/server-tests.factor
View File

@ -25,7 +25,7 @@ IN: ftp.server.tests
"ftp" >>protocol "ftp" >>protocol
"localhost" >>host "localhost" >>host
create-test-file >>path create-test-file >>path
_ call @
] ]
[ stop-server ] tri [ stop-server ] tri
] with-unique-directory drop ; inline ] with-unique-directory drop ; inline

2
basis/ftp/server/server.factor
View File

@ -115,7 +115,7 @@ ERROR: type-error type ;
] recover ; ] recover ;
: random-local-server ( -- server ) : 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 ) : port>bytes ( port -- hi lo )
[ -8 shift ] keep [ 8 bits ] bi@ ; [ -8 shift ] keep [ 8 bits ] bi@ ;