urbit/pkg/arvo/gen/hood/rein.hoon

/-  hood
:-  %say
|=  $:  [now=@da eny=@uvJ bec=beak]
        $:  =desk
            arg=(list [? dude:gall])
        ==
        liv=_&
    ==
:-  %kiln-rein
:-  desk
%+  roll  arg
=|  =rein:hood
|:  [*[on=? =dude:gall] rein=rein(liv liv)]
?:  on
  rein(add (~(put in add.rein) dude))
rein(sub (~(put in sub.rein) dude))
sys,gen/kiln: kelvin checking seems to work 2021-08-20 10:41:16 +03:00			`/- hood`
			`:- %say`
			`\|= $: [now=@da eny=@uvJ bec=beak]`
			`$: =desk`
			`arg=(list [? dude:gall])`
			`==`
			`liv=_&`
			`==`
			`:- %kiln-rein`
			`:- desk`
			`%+ roll arg`
			`=\| =rein:hood`
hood: bugfix when using \|rein with multiple agents 2021-11-03 13:38:02 +03:00			`\|: [*[on=? =dude:gall] rein=rein(liv liv)]`
sys,gen/kiln: kelvin checking seems to work 2021-08-20 10:41:16 +03:00			`?: on`
			`rein(add (~(put in add.rein) dude))`
			`rein(sub (~(put in sub.rein) dude))`