lib/strandio: add +scry

This commit is contained in:
Liam Fitzgerald 2020-09-02 15:17:34 +10:00
parent 36202d8463
commit c3fd4922aa

View File

@ -241,6 +241,15 @@
;< our=@p bind:m get-our
(watch wire [our term] path)
::
++ scry
|* [=mold =path]
=/ m (strand mold)
?> ?=(^ path)
?> ?=(^ t.path)
;< =bowl:spider bind:m get-bowl
%- pure:m
.^(mold i.path (scot %p our.bowl) i.t.path (scot %da now.bowl) t.t.path)
::
++ leave
|= [=wire =dock]
=/ m (strand ,~)