ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-28 11:40:11 +03:00
Code Issues Packages Projects Releases Wiki Activity

clay: refuse %cs subs scry unless at now

Browse Source
This commit is contained in:
Ted Blackman 2023-02-03 12:33:27 -06:00
parent 4c2e5460bd
commit 09a0da4c84
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkg/arvo/sys/vane/clay.hoon
View File

@ -4160,9 +4160,10 @@
:: +read-s: produce miscellaneous :: +read-s: produce miscellaneous
:: ::
++ read-s ++ read-s
|= [yon=aeon pax=path] |= [yon=aeon pax=path =case]
^- (unit (unit cage)) ^- (unit (unit cage))
?: ?=([%subs ~] pax) ?: ?=([%subs ~] pax)
?. =([%da now] case) ~
=| sus=(set ship) =| sus=(set ship)
=/ doj=(unit dojo) (~(get by dos.rom) syd) =/ doj=(unit dojo) (~(get by dos.rom) syd)
?~ doj ?~ doj
@ -4442,7 +4443,7 @@
%f (read-f yon path.mun) %f (read-f yon path.mun)
%p [(read-p path.mun) ..park] %p [(read-p path.mun) ..park]
%r (read-r yon path.mun) %r (read-r yon path.mun)
%s [(read-s yon path.mun) ..park] %s [(read-s yon path.mun case.mun) ..park]
%t [(read-t yon path.mun) ..park] %t [(read-t yon path.mun) ..park]
%u [(read-u yon path.mun) ..park] %u [(read-u yon path.mun) ..park]
%v [(read-v yon path.mun) ..park] %v [(read-v yon path.mun) ..park]