From 887c6d99900c831c0a1f2546c8aedb6dcd730049 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sat, 21 Jun 2014 06:52:33 -0400
Subject: [PATCH] Logging for debugging

---
 tcp.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tcp.rkt b/tcp.rkt
index ee42b55..28d59cf 100644
--- a/tcp.rkt
+++ b/tcp.rkt
@@ -335,6 +335,7 @@
 
   ;; Bitstring ConnState -> Transition
   (define (incorporate-segment data s)
+    (log-info "GOT INBOUND STUFF TO DELIVER ~v" data)
     (transition
      (if (buffer-finished? (conn-state-inbound s))
 	 s
@@ -567,6 +568,7 @@
 				 bump-activity-time
 				 quit-when-done))]
       [(message (tcp-channel _ _ bs) _ _)
+       (log-info "GOT MORE STUFF TO DELIVER ~v" bs)
        (sequence-transitions (transition (struct-copy conn-state s
 					   [outbound (buffer-push (conn-state-outbound s) bs)])
 					 '())