remove the most annoying alef printfs

This commit is contained in:
Ted Blackman 2019-08-01 16:46:36 -07:00
parent fce0e555eb
commit 5b9efe3c4f

View File

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