ames: downcast %hear error notification to %hole

This commit is contained in:
Joe Bryan 2020-02-24 11:13:53 -08:00
parent 4cae84d9ac
commit 93eaff7401

View File

@ -920,12 +920,14 @@
::
=/ =task ((harden task) wrapped-task)
::
:: error notifications "downcast" to %crud
:: error notifications "downcast" to %crud or %hole
::
=? task ?=(^ dud)
~| %crud-in-crud
?< ?=(%crud -.task)
[%crud -.task tang.u.dud]
?- -.task
%crud ~|(%crud-in-crud !!)
%hear [%hole [lane blob]:task]
* [%crud -.task tang.u.dud]
==
::
:: %born: set .unix-duct and start draining .queued-events
::
@ -1067,12 +1069,14 @@
::
=/ =task ((harden task) wrapped-task)
::
:: error notifications "downcast" to %crud
:: error notifications "downcast" to %crud or %hole
::
=? task ?=(^ dud)
~| %crud-in-crud
?< ?=(%crud -.task)
[%crud -.task tang.u.dud]
?- -.task
%crud ~|(%crud-in-crud !!)
%hear [%hole [lane blob]:task]
* [%crud -.task tang.u.dud]
==
::
=/ event-core (per-event [our now eny scry-gate] duct ames-state)
::