From 9a930392cb8f5edc10b4dfcdaa24b367a8a5b55d Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Thu, 9 Nov 2017 16:52:38 -0800
Subject: [PATCH] less mechanical cleanup

---
 gen/hood/bonus.hoon | 4 +++-
 gen/hood/load.hoon  | 3 ++-
 gen/metal.hoon      | 4 +++-
 3 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/gen/hood/bonus.hoon b/gen/hood/bonus.hoon
index 8501c9058..99e8fd4a5 100644
--- a/gen/hood/bonus.hoon
+++ b/gen/hood/bonus.hoon
@@ -3,6 +3,8 @@
 ::::  /hoon/bonus/hood/gen
   ::
 /?    310
+/+  old-zuse
+=,  old-zuse
 ::
 ::::
   ::
@@ -13,4 +15,4 @@
 ?~  opt  $(opt [planets=1]~)
 ?~  +.opt  $(+.opt [stars=0]~)
 :-  %womb-bonus
-[(scot %uv pas) planets stars]
+[(scot %uv pas) planets.opt stars.opt]
diff --git a/gen/hood/load.hoon b/gen/hood/load.hoon
index 0903b2058..054c950d7 100644
--- a/gen/hood/load.hoon
+++ b/gen/hood/load.hoon
@@ -3,7 +3,8 @@
 ::::  /hoon/load/hood/gen
   ::
 /?    310
-/+    womb
+/+    womb,  old-zuse
+=,  old-zuse
 ::
 ::::
   ::
diff --git a/gen/metal.hoon b/gen/metal.hoon
index ab43f8e56..73dcfe9a7 100644
--- a/gen/metal.hoon
+++ b/gen/metal.hoon
@@ -2,6 +2,8 @@
 ::::  /hoon/metal/gen
   ::
 /?    310
+/+  old-zuse
+=,  old-zuse
 ::
 ::::
   !:
@@ -277,7 +279,7 @@
             =/  dat  .^(@t %cx pax)
             [(met 3 dat) dat]
           ==
-      =/  all  (~(tap by dir.lon) ~)
+      =/  all  ~(tap by dir.lon)
       |-  ^-  mode:clay
       ?~  all  hav
       $(all t.all, hav ^$(tyl [p.i.all tyl]))