try harder to make wires match

This commit is contained in:
Ted Blackman 2019-08-09 19:40:45 -07:00
parent ea718bcc87
commit 23e2cc7f3c
2 changed files with 3 additions and 5 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:d210b3672e4d1fe4422839876e110b90e21e0fcca407a22ff589ce0bad3b3d1a
size 10365547
oid sha256:93e213c1f3e4773a88172948c985f5c0b57c83bc7bdfd1d78c0e852f56f11258
size 10365516

View File

@ -46,16 +46,14 @@
|= [=wire error=(unit tang)]
^- [(list move) _app-core]
::
?> =(/ping-send wire)
%- (print-error "ping: coup" error)
set-timer
:: +wake: handle timer firing
::
++ wake
++ wake-ping-wait
|= [=wire error=(unit tang)]
^- [(list move) _app-core]
::
?> =(/ping-wait wire)
%- (print-error "ping: wake" error)
send-ping
:: +poke-noun: handle request; no-op to ack, crash to nack