 IN: benchmark.sockets
 
 SYMBOL: counter
-SYMBOL: port-promise
+SYMBOL: server-promise
 SYMBOL: server
+SYMBOL: port
 
 CONSTANT: number-of-requests 1000
 
 : server-addr ( -- addr )
-    "127.0.0.1" port-promise get ?promise <inet4> ;
+    "127.0.0.1" port get <inet4> ;
 
 : server-loop ( server -- )
     dup accept drop [

! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel math threads io io.sockets
io.encodings.ascii io.streams.duplex debugger tools.time

    ] curry "Client handler" spawn drop server-loop ;

: simple-server ( -- )
    [ server get [ server-loop ] with-disposal ] ignore-errors
    t server-promise get fulfill ;

: simple-client ( -- )
    [
