arvo: moves (placeholder) kelvin to an arm
|%
+| %global
::
+++ arvo %arvo-kelvin
+::
:: $arch: fundamental node
:: $beak: global context
:: $beam: global name
==
+$ germ [vane=term bars=(list duct)]
+$ heir
- $% [%arvo-kelvin now=@da =debt =soul]
+ $% [_arvo now=@da =debt =soul]
==
+$ plan (pair germ (list move))
+$ soul
^- (each (pair (list ovum) soul) (trap ^))
?~ but
&/[(flop out) sol]
- |/(gat.u.but [%arvo-kelvin now [run out [kel fil]:u.but] sol])
+ |/(gat.u.but [arvo now [run out [kel fil]:u.but] sol])
:: +poke: prepare a worklist-of-one from outside
::
++ poke
%- %+ wyrd kel.ver
^- (list (pair term @))
:~ hoon/hoon-version
- arvo/%arvo-kelvin
+ arvo/arvo
zuse/;;(@ q:(slap zus limb/%zuse))
==
..pith
::
=. sol
?- -.hir
- %arvo-kelvin soul.hir
+ _arvo soul.hir
==
:: clear compiler caches
::
%- %+ wyrd kel.ver
^- (list (pair term @))
:~ hoon/hoon-version
- arvo/%arvo-kelvin
+ arvo/arvo
zuse/;;(@ q:(slap zus limb/%zuse))
==
:: restore working state and resume
%- %+ wyrd kel.ver
^- (list (pair term @))
:~ hoon/hoon-version
- arvo/%arvo-kelvin
+ arvo/arvo
zuse/;;(@ud q:(slap zus limb/%zuse))
==
=/ nav %- ~(run by van)
|=(a=(trap vase) (settle:va:part (slym $:a zus)))
=/ sol [u.who u.eny lac ver u.fat zus nav]
- `[%arvo-kelvin now *debt sol]
+ `[arvo now *debt sol]
--
::
=| foal
%- %+ wyrd kel.ver
^- (list (pair term @))
:* hoon/hoon-version
- arvo/%arvo-kelvin
+ arvo/arvo
?~ bod ~
[zuse/;;(@ud q:(slap $:u.bod limb/%zuse)) ~]
==
