Make dill properly deal with clay acks.
Also adds a comment about the reason for making the %kids desk public.
$% {$mere p/(each (set path) (pair term tang))} ::
{$note p/@tD q/tank} ::
{$writ p/riot:clay} ::
+ {$mack p/(unit tang)} ::
== ::
++ sign-dill ::
$% {$blit p/(list blit)} ::
(sync %home our %base)
(init-sync %home our %base)
=. +> ?. ?=(?($duke $king $czar) can) +>
+ :: make kids desk publicly readable, so syncs work.
(show %kids):(sync %kids our %base)
=. +> autoload
=. +> peer
::
{$c $writ *}
init
+ ::
+ {$c $mack *}
+ ?~ p.sih +>.$
+ (mean >%dill-clay-nack< u.p.sih)
::
{$d $blit *}
(done +.sih)
