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

Logging for debugging

This commit is contained in:
Tony Garnock-Jones 2014-06-21 06:52:33 -04:00
parent 0bf2033d44
commit 887c6d9990
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tcp.rkt
View File

@ -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)])
'())