Logging for debugging
This commit is contained in:
parent
0bf2033d44
commit
887c6d9990
2
tcp.rkt
2
tcp.rkt
|
@ -335,6 +335,7 @@
|
||||||
|
|
||||||
;; Bitstring ConnState -> Transition
|
;; Bitstring ConnState -> Transition
|
||||||
(define (incorporate-segment data s)
|
(define (incorporate-segment data s)
|
||||||
|
(log-info "GOT INBOUND STUFF TO DELIVER ~v" data)
|
||||||
(transition
|
(transition
|
||||||
(if (buffer-finished? (conn-state-inbound s))
|
(if (buffer-finished? (conn-state-inbound s))
|
||||||
s
|
s
|
||||||
|
@ -567,6 +568,7 @@
|
||||||
bump-activity-time
|
bump-activity-time
|
||||||
quit-when-done))]
|
quit-when-done))]
|
||||||
[(message (tcp-channel _ _ bs) _ _)
|
[(message (tcp-channel _ _ bs) _ _)
|
||||||
|
(log-info "GOT MORE STUFF TO DELIVER ~v" bs)
|
||||||
(sequence-transitions (transition (struct-copy conn-state s
|
(sequence-transitions (transition (struct-copy conn-state s
|
||||||
[outbound (buffer-push (conn-state-outbound s) bs)])
|
[outbound (buffer-push (conn-state-outbound s) bs)])
|
||||||
'())
|
'())
|
||||||
|
|
Loading…
Reference in New Issue