syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Cosmetic

This commit is contained in:
Tony Garnock-Jones 2014-06-06 18:06:14 -04:00
parent 4addfee3b4
commit f4169206f5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
minimart/drivers/tcp.rkt
View File

@ -52,7 +52,8 @@
(transition (struct-copy listener-state state [listener #f]) (quit)))
#f)]
[(message (event _ (list (list cin cout))) 1 #f)
(define-values (local-hostname local-port remote-hostname remote-port) (tcp:tcp-addresses cin #t))
(define-values (local-hostname local-port remote-hostname remote-port)
(tcp:tcp-addresses cin #t))
(transition state
(spawn-connection (listener-state-server-addr state)
(tcp-address remote-hostname remote-port)