mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-24 23:44:56 +03:00
arvo: adds |meld, triggering memory unification
This commit is contained in:
parent
7f0b500778
commit
31fe240632
13
pkg/arvo/gen/hood/meld.hoon
Normal file
13
pkg/arvo/gen/hood/meld.hoon
Normal file
@ -0,0 +1,13 @@
|
||||
:: Helm: unify memory
|
||||
::
|
||||
:::: /hoon/meld/hood/gen
|
||||
::
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
::
|
||||
:- %say
|
||||
|= $: [now=@da eny=@uvJ bec=beak]
|
||||
[arg=~ ~]
|
||||
==
|
||||
[%helm-meld ~]
|
@ -100,6 +100,10 @@
|
||||
|= ~
|
||||
abet:(emit %pass way.mass-timer.sat %arvo %b %rest nex.mass-timer.sat)
|
||||
::
|
||||
++ poke-meld
|
||||
|= ~ =< abet
|
||||
(emit %pass /pack %arvo %d %flog %meld ~)
|
||||
::
|
||||
++ poke-pack
|
||||
|= ~ =< abet
|
||||
(emit %pass /pack %arvo %d %flog %pack ~)
|
||||
@ -228,6 +232,7 @@
|
||||
%helm-hi =;(f (f !<(_+<.f vase)) poke-hi)
|
||||
%helm-knob =;(f (f !<(_+<.f vase)) poke-knob)
|
||||
%helm-mass =;(f (f !<(_+<.f vase)) poke-mass)
|
||||
%helm-meld =;(f (f !<(_+<.f vase)) poke-meld)
|
||||
%helm-moon =;(f (f !<(_+<.f vase)) poke-moon)
|
||||
%helm-pack =;(f (f !<(_+<.f vase)) poke-pack)
|
||||
%helm-rekey =;(f (f !<(_+<.f vase)) poke-rekey)
|
||||
|
@ -117,6 +117,7 @@
|
||||
$blew (send %rez p.p.kyz q.p.kyz)
|
||||
$heft (dump %whey ~)
|
||||
$lyra (dump kyz)
|
||||
$meld (dump kyz)
|
||||
$pack (dump kyz)
|
||||
$crop (dump trim+p.kyz)
|
||||
$veer (dump kyz)
|
||||
|
@ -1110,6 +1110,7 @@
|
||||
{$init p/@p} :: set owner
|
||||
{$logo ~} :: logout
|
||||
[%lyra hoon=(unit @t) arvo=@t] :: upgrade kernel
|
||||
{$meld ~} :: unify memory
|
||||
{$pack ~} :: compact memory
|
||||
{$trim p/@ud} :: trim kernel state
|
||||
{$veer p/@ta q/path r/@t} :: install vane
|
||||
@ -1131,6 +1132,7 @@
|
||||
{$harm ~} :: all terms hung up
|
||||
$>(%init vane-task) :: after gall ready
|
||||
[%lyra hoon=(unit @t) arvo=@t] :: upgrade kernel
|
||||
{$meld ~} :: unify memory
|
||||
{$noop ~} :: no operation
|
||||
{$pack ~} :: compact memory
|
||||
{$talk p/tank} ::
|
||||
@ -1198,6 +1200,7 @@
|
||||
{$crud p/@tas q/(list tank)} ::
|
||||
{$heft ~} ::
|
||||
[%lyra hoon=(unit @t) arvo=@t] :: upgrade kernel
|
||||
{$meld ~} :: unify memory
|
||||
{$pack ~} :: compact memory
|
||||
{$text p/tape} ::
|
||||
{$veer p/@ta q/path r/@t} :: install vane
|
||||
|
Loading…
Reference in New Issue
Block a user