hood: re-patch |rein

Essentially reimplements #5863 in the generator, instead of the library.
This commit is contained in:
fang 2022-07-05 17:37:54 +02:00
parent c437f1cdbd
commit ddf3520648
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
2 changed files with 5 additions and 2 deletions

View File

@ -9,7 +9,9 @@
:- %kiln-rein
:- desk
%+ roll arg
=| =rein:hood
=/ =rein:hood
=< rein.arak
.^(vat:hood %gx /(scot %p p.bec)/hood/(scot %da now)/kiln/vat/[desk]/noun)
|: [*[on=? =dude:gall] rein=rein(liv liv)]
?: on
rein(add (~(put in add.rein) dude))

View File

@ -180,8 +180,9 @@
=rein
==
^- [jolt=(list dude) idle=(list dude)]
=/ all=(list dude) (read-bill local)
=/ want (get-apps-want local all rein)
=/ have (get-apps-live local)
=/ want (get-apps-want local have rein)
[want (skip have ~(has in (sy want)))]
::
++ get-remote-diff