more useful +diff and +sigh

This commit is contained in:
Philip Monk 2019-05-28 15:37:42 -07:00
parent 9d1e8601e3
commit 96a2baabec
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC

View File

@ -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)