gall: deleted +ap-track-queue, boot completes
?> ?=([%req @ @ @ ~] path)
=/ him (slav %p i.t.path)
=/ dap i.t.t.path
- =/ num (slav %ud i.t.t.t.path)
::
?> ?=([%g %unto *] sign-arvo)
=/ =internal-gift +>.sign-arvo
::
%diff
=+ [mark noun]=[p q.q]:p.internal-gift
- (mo-give %boon num %d mark noun)
+ (mo-give %boon %d mark noun)
::
%quit
- (mo-give %boon num %x ~)
+ (mo-give %boon %x ~)
::
%reap
=/ err=(unit error:ames)
++ ap-abet
^+ mo-core
::
- => ap-track-queue
=/ running (~(put by running.agents.state) agent-name current-agent)
=/ moves
=/ giver |=(report=(each suss tang) [hen %give %onto report])
running.agents.state running
moves moves
==
- :: +ap-track-queue: track queue.
- ::
- ++ ap-track-queue
- ^+ ap-core
- ::
- =/ internal-moves agent-moves
- =/ bones *(set bone)
- |- ^+ ap-core
- ?^ internal-moves
- =? bones ?=([%give %diff *] move.i.internal-moves)
- (~(put in bones) bone.i.internal-moves)
- ::
- $(internal-moves t.internal-moves)
- ::
- =/ bones ~(tap in bones)
- ::
- |- ^+ ap-core
- ?~ bones
- ap-core
- ::
- => $(bones t.bones, agent-bone i.bones)
- =/ incoming
- (~(get by incoming.subscribers.current-agent) agent-bone)
- ?~ incoming
- ~& [%ap-track-queue-bad-bone agent-name agent-bone]
- ap-core
- ::
- =/ =ship p.u.incoming
- ap-kill(attributing.agent-routes ship)
:: +ap-from-internal: internal move to move.
::
:: We convert from bone-indexed moves to duct-indexed moves when
++ ap-silent-delete
^+ ap-core
::
- =. incoming.subcribers.current-agent
+ %= ap-core
+ incoming.subscribers.current-agent
(~(del by incoming.subscribers.current-agent) agent-bone)
- ap-core
+ ==
:: +ap-load-delete: load delete.
::
++ ap-load-delete
