dill: adds |pack and and friends

bin/solid.pill

@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:bccc640d030d2ec49b24a5f3413b305cb4823f1b5bf86f5d0dbfe7f6dc38ac2a
-size 8951763
+oid sha256:3441dd44636f798593a74f2b88efc43db80ac360af2adff6d8f6bbad39bb0a83
+size 9620983

pkg/arvo/app/hood.hoon

@@ -157,6 +157,7 @@
 ::++  poke-helm-invite          (wrap poke-invite):from-helm
 ++  poke-helm-knob            (wrap poke-knob):from-helm
 ++  poke-helm-mass            (wrap poke-mass):from-helm
+++  poke-helm-pack            (wrap poke-pack):from-helm
 ++  poke-helm-reload          (wrap poke-reload):from-helm
 ++  poke-helm-reload-desk     (wrap poke-reload-desk):from-helm
 ++  poke-helm-reset           (wrap poke-reset):from-helm

pkg/arvo/gen/hood/pack.hoon

@@ -0,0 +1,13 @@
+::  Helm: compact memory
+::
+::::  /hoon/pack/hood/gen
+  ::
+/?    310
+::
+::::
+  ::
+:-  %say
+|=  $:  {now/@da eny/@uvJ bec/beak}
+        {arg/~ ~}
+    ==
+[%helm-pack ~]

pkg/arvo/lib/hood/helm.hoon

@@ -95,7 +95,7 @@
 ::
 ++  poke-mass
   |=  ~  =<  abet
-  (emit %flog /heft %crud %hax-heft ~)
+  (emit %flog /heft %heft ~)
 ::
 ++  poke-automass
   |=  recur=@dr
@@ -107,6 +107,10 @@
   |=  ~
   abet:(emit %rest way.mass-timer.sez nex.mass-timer.sez)
 ::
+++  poke-pack
+  |=  ~  =<  abet
+  (emit %flog /pack %pack ~)
+::
 ++  poke-bonk
   |=  ~
   ~&  .^((unit @da) %a /(scot %p our)/time/(scot %da now)/(scot %p our))

pkg/arvo/sys/vane/dill.hoon

@@ -204,6 +204,7 @@
           $blew  (send %rez p.p.kyz q.p.kyz)
           $heft  heft
           $lyra  (dump kyz)
+          $pack  (dump kyz)
           $veer  (dump kyz)
           $verb  (dump kyz)
         ==

pkg/arvo/sys/zuse.hoon

@@ -778,6 +778,7 @@
           {$logo ~}                                     ::  logout
           {$lyra p/@t q/@t}                             ::  upgrade kernel
           {$mass p/mass}                                ::  memory usage
+          {$pack ~}                                     ::  compact memory
           {$send p/lane:ames q/@}                       ::  transmit packet
           {$veer p/@ta q/path r/@t}                     ::  install vane
           {$verb ~}                                     ::  verbose mode
@@ -797,6 +798,7 @@
           $>(%init vane-task)                           ::  after gall ready
           {$lyra p/@t q/@t}                             ::  upgrade kernel
           {$noop ~}                                     ::  no operation
+          {$pack ~}                                     ::  compact memory
           {$talk p/tank}                                ::
           {$text p/tape}                                ::
           {$veer p/@ta q/path r/@t}                     ::  install vane
@@ -861,6 +863,7 @@
     $%  {$crud p/@tas q/(list tank)}                    ::
         {$heft ~}                                       ::
         {$lyra p/@t q/@t}                               ::  upgrade kernel
+        {$pack ~}                                       ::  compact memory
         {$text p/tape}                                  ::
         {$veer p/@ta q/path r/@t}                       ::  install vane
         {$verb ~}                                       ::  verbose mode