cleaning up %base to %home

base/ape/dojo/core.hook

@@ -278,7 +278,7 @@
     ++  dy-amok  +>(poy ~)                              ::  terminate
     ++  dy-beak                                         ::  XX rethink
       ^-  beak
-      [our.hid %base [%da lat.hid]]
+      [our.hid %home [%da lat.hid]]
     ::
     ++  dy-ford                                         ::  send work to ford
       |=  [way=wire kas=silk]
@@ -726,7 +726,7 @@
   :-  [ost ~]
   ^-  session
   :*  *sole-share  ::  say=sole-share
-      %base           ::  syd=desk
+      %home           ::  syd=desk
       ~               ::  luc=(unit case)
       ~               ::  poy=(unit dojo-project)
       ~               ::  var=(map term cage)

base/ape/octo/core.hook

@@ -165,7 +165,7 @@
             %0  +>(eye.+< eye.+>.old, gam.+< gam.+>.old)::
           ==                                            ::
 ++  pull-octo                                           ::
-          |=  [from ~]  =<  abet                        ::
+          |=  [from *]  =<  abet                        ::
           (park(but ~) %0 `"dropped")                   ::
 ++  pull-sole                                           ::  disconnect console
           |=  [from *]  =<  abet                        ::

base/ape/sole/core.hook

@@ -199,7 +199,7 @@
     |=  gyl=gill
     ^+  +>
     =.  +>  ?.  =(p.gyl src)  +>
-        (se-emit ost %conf (se-path gyl) gyl %load src %base)
+        (se-emit ost %conf (se-path gyl) gyl %load src %home)
     (se-join:(se-peer gyl /sole) gyl)
   ::
   ++  se-blit                                           ::  give output

base/arvo/dill.hoon

@@ -184,7 +184,7 @@
         =+  myt=(flop (need tem))
         =.  tem  ~
         =.  moz  :_(moz [hen %pass / %c %font our %home our %base])
-        =.  moz  :_(moz [hen %pass ~ %g %conf [[our ram] %load our %base]])
+        =.  moz  :_(moz [hen %pass ~ %g %conf [[our ram] %load our %home]])
         =.  moz  :_(moz [hen %pass ~ %g %deal [our our] ram %peer ~])
         |-  ^+  +>
         ?~  myt  +>
@@ -200,7 +200,7 @@
               %pass
               /
               %c
-              [%warp [our our] %base `[%sing %y [%ud 1] /]]
+              [%warp [our our] %home `[%sing %y [%ud 1] /]]
           ==
         ==
       ::

base/arvo/gall.hoon

@@ -398,7 +398,7 @@
     ^-  beak
     ::  =+  pup=pup:(~(got by bum) dap)
     ::  [p.pup q.pup [%da now]]   ::  XX this is wrong; save the build case
-    [our %base %da now]           ::  XX really wrong
+    [our %home %da now]           ::  XX really wrong
   ::
   ++  mo-club                                           ::  local action
     |=  [dap=dude pry=prey cub=club]