gall: adds verbose arg to agent scry implementation
::
++ mo-peek
~/ %mo-peek
- |= [dap=term =routes care=term =path]
+ |= [veb=? dap=term =routes care=term =path]
^- (unit (unit cage))
::
=/ app (ap-abed:ap dap routes)
- (ap-peek:app care path)
+ (ap-peek:app veb care path)
::
++ mo-apply
|= [dap=term =routes =deal]
::
++ ap-peek
~/ %ap-peek
- |= [care=term tyl=path]
+ |= [veb=? care=term tyl=path]
^- (unit (unit cage))
:: take trailing mark off path for %x scrys
::
=/ peek-result=(each (unit (unit cage)) tang)
(ap-mule-peek |.((on-peek:ap-agent-core [care tyl])))
?: ?=(%| -.peek-result)
+ ?. veb [~ ~]
((slog leaf+"peek bad result" p.peek-result) [~ ~])
:: for non-%x scries, or failed %x scries, or %x results that already
:: have the requested mark, produce the result as-is
?. ?=(^ path)
~
=/ =routes [~ ship]
- (mo-peek:mo dap routes care path)
+ (mo-peek:mo & dap routes care path)
:: +stay: save without cache; suspend non-%base agents
::
:: TODO: superfluous? see +molt
