vere: packs memory in worker on %pack effect

pkg/urbit/include/c/motes.h

@@ -803,6 +803,7 @@
 #   define c3__outd   c3_s4('o','u','t','d')
 #   define c3__ov     c3_s2('o','v')
 #   define c3__over   c3_s4('o','v','e','r')
+#   define c3__pack   c3_s4('p','a','c','k')
 #   define c3__pair   c3_s4('p','a','i','r')
 #   define c3__palm   c3_s4('p','a','l','m')
 #   define c3__palq   c3_s4('p','a','l','q')

pkg/urbit/vere/reck.c

@@ -129,7 +129,7 @@ _reck_kick_term(u3_pier* pir_u, u3_noun pox, c3_l tid_l, u3_noun fav)
       u3z(pox); u3z(fav); return c3y;
     } break;
 
-    case c3__mass: p_fav = u3t(fav);
+    case c3__mass:
     {
       u3z(pox); u3z(fav);
 
@@ -138,6 +138,14 @@ _reck_kick_term(u3_pier* pir_u, u3_noun pox, c3_l tid_l, u3_noun fav)
       uv_timer_start(&u3K.tim_u, (uv_timer_cb)u3_daemon_grab, 0, 0);
       return c3y;
     } break;
+
+    //  ignore pack (processed in worker)
+    //
+    case c3__pack:
+    {
+      u3z(pox); u3z(fav);
+      return c3y;
+    } break;
   }
   c3_assert(!"not reached"); return 0;
 }

pkg/urbit/worker/main.c

@@ -540,6 +540,12 @@ _worker_sure_feck(u3_noun ovo, u3_noun vir, c3_w pre_w)
         rec_o = c3y;
       }
 
+      //  pack memory on |pack
+      //
+      if ( c3__pack == u3h(fec) ) {
+        pac_o = c3y;
+      }
+
       riv = u3t(riv);
       i_w++;
     }