gall: block at %a scry if date isn't now

This commit is contained in:
~wicrum-wicrun 2023-03-29 16:15:00 +02:00
parent ad7cf21d01
commit 9659e1c16b

View File

@ -2038,7 +2038,7 @@
=/ 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))
%da ?.(=(p.r.bem now) ~ (bind (ram:on-path fan.u.ski) tail))
==
?. ?=([~ %& *] res) ~
``[%noun %noun p.u.res]