From c3e0a0394c051936f4785a1be165f5547896dba5 Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Sun, 5 Jan 2014 15:38:34 -0800
Subject: [PATCH] Some arvo cleanups.

---
 arvo/hoon.hoon | 19 +++++++++++++++++++
 arvo/zuse.hoon |  2 +-
 2 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon
index 0682d9683..72471a4f4 100644
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@@ -7341,6 +7341,7 @@
 ::::::  ::::::::::::::::::::::::::::::::::::::::::::::::::::::
 ::::::  ::::::    Postface                              ::::::
 ::::::  ::::::::::::::::::::::::::::::::::::::::::::::::::::::
+!:
 =+  pit=`vase`!>(.)                                     ::
 =+  bud=pit                                             ::  becomes tang
 =+  vil=(vial p.bud)                                    ::
@@ -7372,6 +7373,8 @@
                 [~ +>.^$]
               ?:  ?=(%veer -.q.i.ova)
                 $(ova t.ova, +>+.^$ (veer +.q.i.ova))
+              ?:  ?=(%vega -.q.i.ova)
+                (vega now t.ova (path +.q.i.ova))
               ?:  ?=(%volt -.q.i.ova)
                 (volt t.ova +.q.i.ova)
               =+(avo=$(ova t.ova) [[i.ova -.avo] +.avo])
@@ -7414,6 +7417,22 @@
     (~(hurl (is eny vil bud fan) now) ovo)
   [zef +>.$]
 ::
+++  vega                                                ::  reboot kernel
+  |=  [now=@da ova=(list ovum) hap=path]
+  ^-  [p=(list ovum) q=*]
+  =+  pax=(weld hap `path`[%hoon ~])
+  ~&  [%vega-start hap]
+  =+  src=((hard ,@t) (need (peek ~zod now cx/pax)))
+  =+  saz=(shax src)
+  =+  gen=(rain hap src) 
+  ~&  %vega-parsed
+  =+  ken=.*(0 q:(~(mint ut %noun) %noun gen))
+  ~&  %vega-compiled
+  =+  gat=.*(ken .*(ken [0 86]))
+  =+  sam=[eny ova fan]
+  =+  raw=.*([-.gat [sam +>.gat]] -.gat)
+  [((list ovum) -.raw) +.raw]
+::
 ++  veer                                                ::  install vane/tang
   |=  *
   =>  .(+< ((hard ,[lal=@ta pax=path txt=@t]) +<))
diff --git a/arvo/zuse.hoon b/arvo/zuse.hoon
index fe2ecdc40..f82919b91 100644
--- a/arvo/zuse.hoon
+++ b/arvo/zuse.hoon
@@ -1535,7 +1535,7 @@
               [%thus p=@ud q=(unit hiss)]               ::  http request
               [%tory p=(list ,@t)]                      ::  history dump
               [%veer p=@ta q=path r=@t]                 ::  install vane
-              [%volo p=*]                               ::  previous kernel
+              [%vega p=path]                            ::  reboot by path
               [%volt p=*]                               ::  current kernel
               [%wait p=@da q=path]                      ::  timer wait
               [%wake ~]                                 ::  timer activate