From f0043aa4ec854d2ac2f6ff231ad7180c97a00b96 Mon Sep 17 00:00:00 2001
From: ~wicrum-wicrun <99811688+wicrum-wicrun@users.noreply.github.com>
Date: Tue, 28 Mar 2023 18:34:35 +0200
Subject: [PATCH] gall: support %a scries at the current time

---
 pkg/arvo/sys/vane/gall.hoon | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/pkg/arvo/sys/vane/gall.hoon b/pkg/arvo/sys/vane/gall.hoon
index 53cc481bad..7b241aa238 100644
--- a/pkg/arvo/sys/vane/gall.hoon
+++ b/pkg/arvo/sys/vane/gall.hoon
@@ -2056,13 +2056,13 @@
     ?~  yok  ~
     =/  ski  (~(get by sky.u.yok) s.bem)
     ?~  ski  ~
-    ?.  ?=(%ud -.r.bem)  ~
-    =/  res  (get:on-path fan.u.ski p.r.bem)
-    ?~  res  ~
-    ?-  -.u.res
-      %|  ~
-      %&  ``[%noun %noun p.u.res]
-    ==
+    =/  res=(unit (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)  ~
+    ``[%noun %noun p.u.res]
   ::  TODO new care to ask for hash of a sky binding
   ::
   ?.  ?=(%.y -.shop)