From ecafc30064a1dea7a1457abad9c7013bc5e11bb5 Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <curtis@tlon.io>
Date: Wed, 29 Nov 2017 12:36:02 -0800
Subject: [PATCH] Like last commit but actually works.

---
 sys/hoon.hoon | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/sys/hoon.hoon b/sys/hoon.hoon
index 134ba43c6b..60ceffdad1 100644
--- a/sys/hoon.hoon
+++ b/sys/hoon.hoon
@@ -6543,10 +6543,16 @@
         {$kelp *}
       %-  hail
       =.  wat  ~
-      |-  ^-  hoon
-      ?~  t.p.sec
-        ^$(sec i.p.sec)
-      [%wtcl [%bust %bean] $(p.sec t.p.sec) ^$(sec i.p.sec)]
+      :+  %ktls
+        |-  ^-  hoon
+        ?~  t.p.sec
+          ^$(sec i.p.sec)
+        [%wtcl [%bust %bean] $(p.sec t.p.sec) ^$(sec i.p.sec)]
+      %=    $
+          sec
+        |-  ^-  tile 
+        ?~(t.p.sec i.p.sec $(i.p.sec i.t.p.sec, t.p.sec t.t.p.sec))
+      ==
     ::
         {$leaf *}
       (hail [%rock p.sec q.sec])
@@ -11186,11 +11192,6 @@
           scab
           (cold [%base %cell] ket)
         ==
-      :-  ['a' 'z']
-        ;~  pose
-          (stag %bcts ;~(plug sym ;~(pfix ;~(pose fas tis) wyde)))
-          scab
-        ==
       :-  '='
         ;~  pfix  tis
           %+  sear
@@ -11199,6 +11200,7 @@
             %+  bind
               |-  ^-  (unit term)
               ?+  hon  ~
+                {$bcsm *}  $(hon p.hon)
                 {$wing *}  ?~(p.hon ~ ?^(i.p.hon ~ `i.p.hon))
                 {$limb *}  `p.hon
                 {$dbug *}  $(hon ~(open ap hon))
@@ -11208,6 +11210,11 @@
             |=(term [%bcts +< hon])
           wyde
         ==
+      :-  ['a' 'z']
+        ;~  pose
+          (stag %bcts ;~(plug sym ;~(pfix ;~(pose fas tis) wyde)))
+          scab
+        ==
     ==
   ::
   ++  scat  !: