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

Remove debug output

This commit is contained in:
Tony Garnock-Jones 2014-06-19 22:17:23 -04:00
parent 90c8e8555b
commit ae9887b8fb
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tcp.rkt
View File

@ -103,13 +103,6 @@
(define local-peer-traffic (pub (tcp-channel remote-addr local-user-addr ?) #:level 1))
(define remote-peer-traffic (sub (tcp-channel remote-addr local-tcp-addr ?) #:level 1))
(spawn (lambda (e seen-local-peer?)
(local-require racket/pretty)
(pretty-write `(RELAY (local-user-addr ,local-user-addr)
(remote-addr ,remote-addr)
(local-tcp-addr ,local-tcp-addr)
(seen-local-peer? ,seen-local-peer?)
(e ,e)))
(flush-output)
(match e
[(routing-update g)
(define local-peer-absent? (gestalt-empty? (gestalt-filter g local-peer-traffic)))