Revert "gall: exclude from traces"

This reverts commit b1b422ce05.
This commit is contained in:
fang 2022-07-07 16:24:03 +02:00
parent a1b3348cdf
commit 283e5ad1db
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -1,4 +1,5 @@
:: %gall, agent execution
!:
:: :: %gall, agent execution
!? 163
::
::::
@ -529,7 +530,7 @@
|= [=wire =sign-arvo]
^+ mo-core
::
?+ -.wire (mean 'gall: bad sys wire' >wire< ~)
?+ -.wire !!
%lyv (mo-handle-sys-lyv wire sign-arvo)
%era (mo-handle-sys-era wire sign-arvo)
%cor (mo-handle-sys-cor wire sign-arvo)
@ -663,7 +664,7 @@
=/ =ship (slav %p i.t.wire)
=/ foreign-agent i.t.t.wire
::
?+ sign-arvo (mean 'gall: strange sign' >[- +<]:sign-arvo< ~)
?+ sign-arvo !!
[%ames %done *]
=^ remote-request outstanding.state
?~ t.t.t.wire
@ -702,7 +703,7 @@
?^ t.t.t.wire
:: kill subscriptions which use the old wire format
::
~_('gall: killing old style subscription' !!)
!!
=/ =ames-response ;;(ames-response payload.sign-arvo)
(mo-handle-ames-response ames-response)
::
@ -1071,7 +1072,7 @@
^- (list move)
::
?- -.card
%slip ~_('gall: non-slip' !!)
%slip !!
::
%give
=/ =gift:agent p.card
@ -1237,8 +1238,8 @@
%watch-as (ap-subscribe-as +.deal)
%poke (ap-poke +.deal)
%watch (ap-subscribe +.deal)
%raw-poke ~_('gall: %raw-poke unapplicable' !!)
%poke-as ~_('gall: %poke-as unapplicable' !!)
%raw-poke !!
%poke-as !!
%leave ap-load-delete
==
:: +ap-peek: peek.
@ -1337,7 +1338,7 @@
(ap-install(agent.yoke &+agent) `old-state)
?~ error
ap-core
(mean 'gall: load failed' (flop u.error))
(mean >%load-failed< u.error)
:: +ap-subscribe-as: apply %watch-as.
::
++ ap-subscribe-as
@ -1730,7 +1731,7 @@
==
:: +load: recreate vane; note, only valid if called from pupa
::
++ load ~_('gall: adult load' !!)
++ load !!
:: +scry: standard scry
::
++ scry