shoe: allow scrying into the underlying shoe app
For some reason we were never passing +on-peek calls on to the underlying agent.
++ on-peek
|= =path
^- (unit (unit cage))
- ?. =(/x/dbug/state path) ~
+ ?. =(/x/dbug/state path) (on-peek:og path)
``noun+(slop on-save:og !>(shoe=state))
::
++ on-agent
