From ce120f8ce11963bd34d30b086ee92e7b1411c606 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Wed, 8 Nov 2017 16:41:58 -0800
Subject: [PATCH] minor cleanup

---
 sys/vane/ford.hoon | 17 +++++++++--------
 sys/zuse.hoon      |  2 +-
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/sys/vane/ford.hoon b/sys/vane/ford.hoon
index 060825c4a..150a19a94 100644
--- a/sys/vane/ford.hoon
+++ b/sys/vane/ford.hoon
@@ -57,7 +57,7 @@
           {$1 p/(set {van/vane ren/care:clay bem/beam tan/tang})}  ::  blocks
           {$2 p/(set beam) q/tang}                      ::  depends+error
       ==                                                ::
-  ==                                                  ::
+  ==                                                    ::
 ++  burg                                                ::  gonadic rule
   |*  {a/mold b/mold}                                   ::  from and to
   $-({c/cafe d/a} (bolt b))                             ::
@@ -192,17 +192,18 @@
     |=  {ren/care:clay bem/beam sih/sign}
     =<  abet  ^+  +>
     ?.  ?=($writ &2.sih)
-      ~|(%bad-axun !!)
-    ?~  p.sih  +>                :: acknowledged
+      ~|([%bad-dep &2.sih] !!)
+    ?~  p.sih  +>                                       :: acknowledged
     =.  out.bay  (~(del in out.bay) bem)
     =.  fin.bay  (~(put in fin.bay) bem)
     =/  des  ~(tap in (~(get ju bak.deh.bay) bem))
-    |-  ^+  ..abet
-    ?~  des  ..abet
-    %_    ..abet
+    |-  ^+  this
+    ?~  des  this
+    %_    $
         sup.bay  (~(del by sup.bay) i.des)
+        des  t.des
         mow 
-      =-  (weld - mow)
+      %-  weld  :_  mow
       %+  turn  ~(tap in (~(get ju sup.bay) i.des))
       |=(a/duct `move`[a %give %news i.des])
     ==
@@ -212,7 +213,7 @@
     =+  nym=(~(get by dym.bay) hen)
     ?~  nym                                             ::  XX should never
       ~&  [%ford-mystery hen]
-      ..abet
+      this
     =+  tas=(need (~(get by q.tad.bay) u.nym))
     abut:~(decamp zo [u.nym tas])
   ::
diff --git a/sys/zuse.hoon b/sys/zuse.hoon
index 64142d68f..60c3ce937 100644
--- a/sys/zuse.hoon
+++ b/sys/zuse.hoon
@@ -780,7 +780,7 @@
   ++  hops                                              ::  XX late-bound path
     $:  pre/(unit tyke)                                 ::
         pof/(unit {p/@ud q/tyke})                       ::
-      ==                                                ::
+    ==                                                  ::
   ++  horn                                              ::  resource tree
     $%  {$fssg p/twig}                                  ::  /~  twig by hand
         {$fsbc p/twig}                                  ::  /$  argument