mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +03:00
Merge branch 'master' into validate-treap-order
This commit is contained in:
commit
b01a5396dd
@ -682,13 +682,18 @@
|
||||
=+ ^= arg ^- vase
|
||||
%- slop
|
||||
?: =(0 p.u.cug)
|
||||
[!>(`path`+.pax) !>(cag)]
|
||||
[!>(`path`+.pax) (ap-cage cag)]
|
||||
[!>((slag (dec p.u.cug) `path`+.pax)) q.cag]
|
||||
=^ cam +>.$ (ap-call q.u.cug arg)
|
||||
?^ cam
|
||||
(ap-pump:(ap-lame q.u.cug u.cam) | her pax)
|
||||
(ap-pump & her pax)
|
||||
::
|
||||
++ ap-cage :: cage to tagged vase
|
||||
|= cag/cage
|
||||
^- vase
|
||||
(slop `vase`[[%atom %tas `p.cag] p.cag] q.cag)
|
||||
::
|
||||
++ ap-pump :: update subscription
|
||||
~/ %ap-pump
|
||||
|= {oak/? her/ship pax/path}
|
||||
@ -1094,7 +1099,7 @@
|
||||
=+ ^= arg ^- vase
|
||||
%- slop
|
||||
?: =(0 p.u.cug)
|
||||
[!>(`path`pax) !>(cag)]
|
||||
[!>(`path`pax) (ap-cage cag)]
|
||||
[!>((slag (dec p.u.cug) `path`pax)) q.cag]
|
||||
=^ cam +>.$ (ap-call q.u.cug arg)
|
||||
?^ cam (ap-lame q.u.cug u.cam)
|
||||
|
Loading…
Reference in New Issue
Block a user