From ae9887b8fb7e6edb947621fd25265e66b8af717c Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 19 Jun 2014 22:17:23 -0400 Subject: [PATCH] Remove debug output --- tcp.rkt | 7 ------- 1 file changed, 7 deletions(-) diff --git a/tcp.rkt b/tcp.rkt index fb311e3..6f1965f 100644 --- a/tcp.rkt +++ b/tcp.rkt @@ -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)))