urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-30 22:15:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

gall: support %a scry at any date

Browse Source
This commit is contained in:
~wicrum-wicrun 2023-03-31 15:37:24 +02:00
parent 5d91b0bb0a
commit 2b7245ddf3
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
pkg/arvo/sys/vane/gall.hoon
View File

@ -2059,13 +2059,21 @@
?: ?=(%nuke -.u.yok) ~
=/ ski (~(get by sky.u.yok) s.bem)
?~ ski ~
=/ res=(unit (pair @da (each noun @uvI)))
?+ -.r.bem ~
%ud (get:on-path fan.u.ski p.r.bem)
%da ?.(=(p.r.bem now) ~ (bind (ram:on-path fan.u.ski) tail))
=/ res=(unit (each noun @uvI))
?+ -.r.bem ~
%ud (bind (get:on-path fan.u.ski p.r.bem) tail)
%da
%- head
%^ (dip:on-path (unit (each noun @uvI)))
fan.u.ski
~
|= [res=(unit (each noun @uvI)) @ud =@da val=(each noun @uvI)]
^- [new=(unit [@da _val]) stop=? res=(unit _val)]
:- `[da val]
?:((lte da p.r.bem) |/`val &/res)
==
?. ?=([~ @ %& *] res) ~
``[%noun %noun p.q.u.res]
?. ?=([~ %& *] res) ~
``[%noun %noun p.u.res]
::
?. ?=(%.y -.shop)
~