urbit/pkg/arvo/gen/hood/rein.hoon
2022-09-13 16:14:43 -08:00

15 lines
331 B
Plaintext

/- hood
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
$: =desk
arg=(list [? dude:gall])
==
liv=_&
==
:- %kiln-rein
:- desk
=+ .^(=cone:clay %cx /(scot %p p.bec)//(scot %da now)/domes)
%+ roll arg
|: [*[on=? =dude:gall] rein=ren:(~(got by cone) [p.bec desk])]
(~(put in rein) dude on)