From ff6a9c31982f305d9c65bc43f6f09ad3c988f26d Mon Sep 17 00:00:00 2001
From: Philip C Monk <philip.monk@tlon.io>
Date: Wed, 1 Apr 2015 19:57:38 -0400
Subject: [PATCH] ~doznec boots

---
 main/arvo/clay.hoon |  4 ++--
 main/arvo/dill.hoon | 10 +++++++---
 main/arvo/gall.hoon | 11 ++++++++++-
 main/arvo/zuse.hoon |  2 +-
 4 files changed, 20 insertions(+), 7 deletions(-)

diff --git a/main/arvo/clay.hoon b/main/arvo/clay.hoon
index 3eeedbe9c9..ffe4e03faa 100644
--- a/main/arvo/clay.hoon
+++ b/main/arvo/clay.hoon
@@ -902,7 +902,7 @@
       ~&  >  %reading-at-aeon
       =+  vid=(read-at-aeon:ze u.nao p.q.i.xiq)
       ~&  >  %red-at-aeon
-      ?~  vid  ~&  %':( oh well'  $(xiq t.xiq, xaq [i.xiq xaq])
+      ?~  vid  ~&  [%oh-well mood=p.q.i.xiq]  $(xiq t.xiq, xaq [i.xiq xaq])
       $(xiq t.xiq, ..wake (balk p.i.xiq u.vid p.q.i.xiq))
     ::
         %many
@@ -967,7 +967,7 @@
     ++  make-direct                                     ::  make blob
       |=  p=page
       ^-  blob
-      [%direct (mug p) p]
+      [%direct (shax (jam p)) p]
     ::
     ++  make-delta                                      ::  make blob delta
       |=  [p=[p=mark q=lobe] q=page]
diff --git a/main/arvo/dill.hoon b/main/arvo/dill.hoon
index 26424650f4..6063e5000f 100644
--- a/main/arvo/dill.hoon
+++ b/main/arvo/dill.hoon
@@ -369,7 +369,7 @@
       %_    +>.$
           mos
         :_  mos
-        [hen %pass /term-show %g %show [our /terminal] our /lines]
+        [hen %pass /term-show/(scot %p our) %g %show [our /terminal] our /lines]
       ==
     ::
         %wake
@@ -510,8 +510,12 @@
           %o  %_    +>.$
                   mos
                 :_  :_  mos
-                  [hen %pass /term-show %g %nuke [our /terminal] our]
-                [hen %pass /term-show %g %show [our /terminal] our /lines]
+                  :*  hen  %pass  /term-show/(scot %p our)
+                      %g  %nuke  [our /terminal]  our
+                  ==
+                :*  hen  %pass  /term-show/(scot %p our)
+                    %g  %show  [our /terminal]  our  /lines
+                ==
               ==
           %p  $(kyz [%belt %aro %u])
           %u  ?:  =(0 bus.u.q.q.yar)
diff --git a/main/arvo/gall.hoon b/main/arvo/gall.hoon
index 64a411242c..d9166d5880 100644
--- a/main/arvo/gall.hoon
+++ b/main/arvo/gall.hoon
@@ -770,7 +770,8 @@
       ::
       ++  home                                          ::  load application
         ^-  silk
-        [%boil %core [[our %main [%da now]] app.sat %app ~] ~]
+        =+  let=((hard ,@) q.q:(need (need (ska ~ %cw [our %main %da now] /))))
+        [%boil %core [[our %main %ud ?:(=(let 0) 1 let)] app.sat %app ~] ~]
       ::
       ++  leav
         %_  .
@@ -1080,6 +1081,14 @@
       ::
       ++  work                                          ::  eat queue
         |-  ^+  +
+        ::  ~&  >  :*  %workeando
+        ::             our=our
+        ::             vey==(~ vey.sat)
+        ::             ^=  qic
+        ::             ?:  ?=(^ qic.sat)
+        ::               [p -.q]:u.qic.sat
+        ::             ~
+        ::         ==
         ?:  |(?=(^ qic.sat) =(~ vey.sat))  +.$          ::  nothing to do
         =^  yev  vey.sat  [p q]:~(get to vey.sat)
         ?:  (~(has in nuc.sat) p.yev)  $
diff --git a/main/arvo/zuse.hoon b/main/arvo/zuse.hoon
index b70903b346..5ac989bc40 100644
--- a/main/arvo/zuse.hoon
+++ b/main/arvo/zuse.hoon
@@ -1997,7 +1997,7 @@
 ++  lice  ,[p=ship q=buck]                              ::  full license
 ++  life  ,@ud                                          ::  regime number
 ++  lint  (list rock)                                   ::  fragment array
-++  lobe  ,@uvF                                         ::  blob ref
+++  lobe  ,@uvI                                         ::  blob ref
 ++  love  $%                                            ::  http response
               [%ham p=manx]                             ::  html node
               [%mid p=mite q=octs]                      ::  mime-typed data