mirror of
https://github.com/urbit/shrub.git
synced 2024-08-17 08:00:39 +03:00
neo: cleanup dead relies
This commit is contained in:
parent
589abf09a7
commit
09c8748f70
@ -424,7 +424,6 @@
|
||||
=. run (lazarus gis)
|
||||
=. run (take:rage gis)
|
||||
=. run (collect-rent gis)
|
||||
~& gifs/gis
|
||||
run
|
||||
::
|
||||
++ plow ~(. plow:aux loam)
|
||||
@ -833,10 +832,33 @@
|
||||
=. run
|
||||
abet:(arvo move)
|
||||
$(how t.how)
|
||||
|
||||
++ ease
|
||||
|= [=pith:neo how=(set howl:neo)]
|
||||
%- ~(gas in *(set howl:neo))
|
||||
%+ skip ~(tap in how)
|
||||
|= =howl:neo
|
||||
?. ?=(%rely -.howl)
|
||||
|
|
||||
=(pith pith.howl)
|
||||
++ cure
|
||||
|= dead=pith:neo
|
||||
=. riot
|
||||
%- gas-riot
|
||||
%+ turn ~(tap by ~(tar of:neo riot))
|
||||
|= [=pith:neo =rave:neo]
|
||||
=. exe.rave (ease dead exe.rave)
|
||||
=. why.rave (ease dead why.rave)
|
||||
=. zed.rave (ease dead zed.rave)
|
||||
[pith rave]
|
||||
run
|
||||
++ reap
|
||||
|= [change=pith:neo =loot:neo]
|
||||
=/ =name:neo (de-pith:name:neo change)
|
||||
=? run =(our.bowl ship.name)
|
||||
(cure pith.name)
|
||||
~& reaping/change
|
||||
=/ =rave:neo (~(gut of:neo riot) change *rave:neo)
|
||||
~& rave/rave
|
||||
=. run (heal:rage:(heal:rage:(heal x/change exe.rave) y/change why.rave) z/change zed.rave)
|
||||
run(riot (~(del of:neo riot) change))
|
||||
::
|
||||
@ -874,7 +896,6 @@
|
||||
::
|
||||
++ take
|
||||
|= gis=(list gift:dirt:neo)
|
||||
~& gis/gis
|
||||
=/ laf (fury gis)
|
||||
=* loop-gift $
|
||||
^+ run
|
||||
@ -1693,7 +1714,7 @@
|
||||
|%
|
||||
++ can-ack
|
||||
^- ?
|
||||
!?=([%poke %ack *] q.q.init-move)
|
||||
!?=([%poke ?(%ack %rely %dead) *] q.q.init-move)
|
||||
++ abet
|
||||
^+ run
|
||||
?: =([~ ~] block)
|
||||
@ -2072,7 +2093,9 @@
|
||||
=+ !<(dead=term q.pail)
|
||||
?~ dep=(~(get by deps:kook) dead)
|
||||
&
|
||||
!required.u.dep
|
||||
=/ [=deed:neo =quay:neo] u.dep
|
||||
?@ deed !deed
|
||||
!req.deed
|
||||
?. (~(has in poke.dock.wave) p.pail)
|
||||
?: ?=(%ack p.pail)
|
||||
%. su-core
|
||||
@ -2512,6 +2535,15 @@
|
||||
leaf
|
||||
=. leaf (~(put of:neo leaf) i.lst)
|
||||
$(lst t.lst)
|
||||
::
|
||||
++ gas-riot
|
||||
=| =riot:neo
|
||||
|= lst=(list [pith:neo rave:neo])
|
||||
^+ riot
|
||||
?~ lst
|
||||
riot
|
||||
=. riot (~(put of:neo riot) i.lst)
|
||||
$(lst t.lst)
|
||||
|
||||
::
|
||||
++ gas-epic
|
||||
|
Loading…
Reference in New Issue
Block a user