gall: +mo-cull compiles

This commit is contained in:
Ted Blackman 2023-03-11 17:11:25 -06:00
parent 8b1fd38fe1
commit d361a27781

View File

@ -319,7 +319,19 @@
++ mo-cull ++ mo-cull
|= =path |= =path
^+ mo-core ^+ mo-core
!! =/ pit (scrub-case path)
=/ yon (snag-case path)
=/ old (~(get by sky.state) pit)
?~ old :: no-op if nonexistent
mo-core :: TODO trace
=. sky.state :: delete all older paths
%+ ~(put by sky.state) pit
:- bob=`yon
%- ~(gas by fan:*path-state)
%+ skim ~(tap by fan.u.old)
|= [yin=@ud val=(each noun @uvI)]
(gth yin yon)
mo-core
:: +mo-receive-core: receives an app core built by %ford. :: +mo-receive-core: receives an app core built by %ford.
:: ::
:: Presuming we receive a good core, we first check to see if the agent :: Presuming we receive a good core, we first check to see if the agent