remove the most annoying alef printfs
^+ event-core
::
?: =(our sndr.packet)
- ~& %alef-self
+ ::~& %alef-self
event-core
::
%. +<
::
?. =(our rcvr.packet)
- ~& %on-hear-forward
on-hear-forward
::
?: encrypted.packet
- ~& %on-hear-shut
on-hear-shut
- ~& %on-hear-open
on-hear-open
:: +on-hear-forward: maybe forward a packet to someone else
::
message-still
:: ack all other packets
::
- ~& %send-ack^seq^fragment-num
+ ::~& %send-ack^seq^fragment-num
(give %send seq %& fragment-num)
:: last-heard<seq<10+last-heard; this is a packet in a live message
::
:: ack any packet other than the last one, and continue either way
::
=? message-still !is-last-fragment
- ~& %send-ack^seq^fragment-num
+ ::~& %send-ack^seq^fragment-num
(give %send seq %& fragment-num)
:: enqueue all completed messages starting at +(last-heard.state)
::
