gall: support %a scries at the current time

This commit is contained in:
~wicrum-wicrun 2023-03-28 18:34:35 +02:00
parent 31a2697260
commit f0043aa4ec

View File

@ -2056,13 +2056,13 @@
?~ yok ~ ?~ yok ~
=/ ski (~(get by sky.u.yok) s.bem) =/ ski (~(get by sky.u.yok) s.bem)
?~ ski ~ ?~ ski ~
?. ?=(%ud -.r.bem) ~ =/ res=(unit (each noun @uvI))
=/ res (get:on-path fan.u.ski p.r.bem) ?+ -.r.bem ~
?~ res ~ %ud (get:on-path fan.u.ski p.r.bem)
?- -.u.res %da ?>(=(p.r.bem now) (bind (ram:on-path fan.u.ski) tail))
%| ~ ==
%& ``[%noun %noun p.u.res] ?. ?=([~ %& *] res) ~
== ``[%noun %noun p.u.res]
:: TODO new care to ask for hash of a sky binding :: TODO new care to ask for hash of a sky binding
:: ::
?. ?=(%.y -.shop) ?. ?=(%.y -.shop)