removes +life from %bond +meal (to fix nacks)

This commit is contained in:
Joe Bryan 2019-01-11 16:55:27 -05:00
parent 54b1fb9dfb
commit cf0ce08f01
2 changed files with 4 additions and 5 deletions

View File

@ -984,9 +984,8 @@
+>(..la (tock p.fud q.fud r.fud))
::
%bond
:: ~& [%bond q.fud r.fud]
?> =(lyf:sen:gus p.fud)
(deer q.fud r.fud ?-(kay %dead ~, %good [~ s.fud]))
:: ~& [%bond p.fud q.fud]
(deer p.fud q.fud ?-(kay %dead ~, %good [~ r.fud]))
::
%carp
:: =+ zol=(~(get by olz.weg) s.fud)
@ -1115,7 +1114,7 @@
san (~(put by san.rol) sex hen)
==
%+ wind [cha sex]
[%bond clon:diz cha sex val]
[%bond cha sex val]
::
++ zest :: zest:ho:um:am
:~ :~ :* [%rtt rtt.sop.bah]

View File

@ -338,7 +338,7 @@
== ::
++ meal :: payload
$% {$back p/coop q/flap r/@dr} :: ack
{$bond p/life q/path r/@ud s/*} :: message
{$bond p/path q/@ud r/*} :: message
{$carp p/@ q/@ud r/@ud s/flap t/@} :: skin+inx+cnt+hash
{$fore p/ship q/(unit lane) r/@} :: forwarded packet
== ::