print to figure out why this is broken

This commit is contained in:
Ted Blackman 2019-08-28 17:44:36 -07:00
parent 5975699c43
commit 0fe443fc7c
2 changed files with 6 additions and 3 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:9ab988d645c38dc4c92088a74ceeeffb0cda22a99f6b6d8daf6c43db04b13e7c
size 13235913
oid sha256:1fe1521148d4c43e1b822a02bd41d420945427060cfc86cdcc61604d3a65d849
size 13236589

View File

@ -1908,7 +1908,9 @@
:: pass to |packet-pump unless duplicate or future ack
::
?. (is-message-num-in-range message-num)
~& %hear-pump-out-of-range
message-pump
~& %hear-pump
(run-packet-pump %hear message-num fragment-num)
:: +on-done: handle message acknowledgment
::
@ -2079,7 +2081,7 @@
::
=- =. packet-pump core.-
=. live.state live.-
~? !=(0 num-sent.-) %resent^num-sent.-
~? !=(0 num-sent.-) %resent-lost^num-sent.-
packet-pump
:: acc: state to thread through traversal
::
@ -2409,6 +2411,7 @@
++ on-hear
|= [=lane =shut-packet ok=?]
^+ message-still
~& %on-hear-message-still^ok=ok
:: we know this is a fragment, not an ack; expose into namespace
::
?> ?=(%& -.meat.shut-packet)