print failed %pokes in +coup

This commit is contained in:
Joe Bryan 2018-06-19 13:19:54 -04:00
parent 9696890fb1
commit 427b5115d4

View File

@ -250,19 +250,6 @@
?~ nem [~ this]
abet:(~(create bind u.nem) for him tar)
[(weld zom zam) this]
::
:: ++ coup-dns-bind
:: |= [wir=wire saw=(unit tang)]
:: ~& [%coup-bind +<]
:: ?~ saw
:: [~ this]
:: ?> ?=(^ wir)
:: ?- i.wir
:: %forward !! :: re-forward?
:: %bind !! :: rebind?
:: * ~&(coup-dns-bind+wir [~ this])
:: ==
::
:: +poke-dns-bond: process established dns binding
::
++ poke-dns-bond
@ -282,6 +269,13 @@
(~(bake tell [him (~(get by per) him)]) dom)
~& [%strange-bond +<]
[~ this]
:: +coup: general poke acknowledgement or error
::
++ coup
|= [wir=wire saw=(unit tang)]
?~ saw [~ this]
~& [%coup-fallthru wir]
[((slog u.saw) ~) this]
:: +rove: hear %ames +lane change for child ships
::
++ rove