From 6c07aadb99d234405f1fd1deedee696782f01543 Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <curtis@tlon.io>
Date: Mon, 6 Nov 2017 19:13:06 -0800
Subject: [PATCH 1/2] Remove random foos; sort profiler hit counter.

---
 sys/hoon.hoon | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/sys/hoon.hoon b/sys/hoon.hoon
index b13c18e91..e4bcfe533 100644
--- a/sys/hoon.hoon
+++ b/sys/hoon.hoon
@@ -8,7 +8,6 @@
   ::                                                    ::
 ~%  %k.143  ~  ~                                        ::
 |%
-++  foo  0
 ++  hoon  +
 --  =>
 ::                                                      ::
@@ -20,7 +19,6 @@
   ::
 ~%  %one  +  ~
 |%
-++  foo  0
 ::                                                      ::
 ::::    1a: unsigned arithmetic                         ::
   ::
@@ -206,7 +204,6 @@
   ::
 ~%  %two  +  ~
 |%
-++  foo  0
 ::                                                      ::
 ::::  2a: unit logic                                    ::
   ::                                                    ::
@@ -1776,7 +1773,6 @@
   ::                                                    ::
 ~%  %tri  +  ~
 |%
-++  foo  0
 ::
 ::::  3a: signed and modular ints                       ::
   ::                                                    ::
@@ -3497,7 +3493,6 @@
     %show  show
   ==
 |%
-++  foo  0
 ::
 ::::  4a: exotic bases
   ::
@@ -5699,7 +5694,6 @@
     %ut    ut
   ==
 |%
-++  foo  0
 ::
 ::::  5a: compiler utilities
   ::
@@ -8515,7 +8509,6 @@
             ::
             ref/span
         ==
-    ~+
     ::  :span: subject refurbished to reference namespace
     ::
     ^-  span
@@ -11085,7 +11078,9 @@
     [(welp "events: " (pi-mumm mon.day)) ~]
   ::
     %+  turn
-      ~(tap by hit.day)
+      %+  sort  ~(tap by hit.day)
+      |=  {a/{* @} b/{* @}}
+      (lth +.a +.b)
     |=  {nam/term num/@ud}
     :(welp (trip nam) ": " (scow %ud num))
     ["" ~]

From dfff3f7d5c8041795e27b24b80a3dbe8a9d9a296 Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <curtis@tlon.io>
Date: Thu, 9 Nov 2017 11:03:39 -0800
Subject: [PATCH 2/2] Clean up some comments.

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

diff --git a/sys/hoon.hoon b/sys/hoon.hoon
index e4bcfe533..24d8fb7da 100644
--- a/sys/hoon.hoon
+++ b/sys/hoon.hoon
@@ -6079,8 +6079,15 @@
       (hail (home p.sec))
     ==
   ++  clam  
-    ^-   twig  
-    [%brts [~ ~] [%base %noun] (whip(gom 7) 6)]
+    ^-  twig
+    =/  raw  [%brts [~ ~] [%base %noun] (whip(gom 7) 6)]
+    ::
+    ::  this performance fix should unify a bunch of trivial functions,
+    ::  but breaks on horrible dogshit hacks in ++raid:zuse.
+    ::
+    ::  ?.  ?=(?($axil $leaf) -.sec)  raw
+    ::  [%tsgr [%rock %n ] raw]
+    raw
   ::
   ++  whip
     |=  axe/axis
@@ -6702,32 +6709,32 @@
       ?-  q.gen
           $~      ~_(leaf+"open-smsg" !!)
           ^
-        :+  %tsgr  [%ktts %v %$ 1]                       ::  =>  v=.
+        :+  %tsgr  [%ktts %v %$ 1]                      ::  =>  v=.
         |-  ^-  twig                                    ::
         ?:  ?=($~ t.q.gen)                              ::
-          [%tsgr [%limb %v] i.q.gen]                     ::  =>(v {i.q.gen})
-        :+  %tsls  [%ktts %a $(q.gen t.q.gen)]           ::  =+  ^=  a
-        :+  %tsls                                        ::    {$(q.gen t.q.gen)}
-          [%ktts %b [%tsgr [%limb %v] i.q.gen]]          ::  =+  ^=  b
-        :+  %tsls                                        ::    =>(v {i.q.gen})
+          [%tsgr [%limb %v] i.q.gen]                    ::  =>(v {i.q.gen})
+        :+  %tsls  [%ktts %a $(q.gen t.q.gen)]          ::  =+  ^=  a
+        :+  %tsls                                       ::    {$(q.gen t.q.gen)}
+          [%ktts %b [%tsgr [%limb %v] i.q.gen]]         ::  =+  ^=  b
+        :+  %tsls                                       ::    =>(v {i.q.gen})
           :+  %ktts  %c                                 ::  =+  c=,.+6.b
-          :+  %tsgl                                      ::
+          :+  %tsgl                                     ::
             [%wing [%| 0 ~] [%& 6] ~]                   ::
           [%limb %b]                                    ::
         :+  %brdt  [~ ~]                                ::  |.
         :^    %cnls                                     ::  %+
-            [%tsgr [%limb %v] p.gen]                     ::      =>(v {p.gen})
+            [%tsgr [%limb %v] p.gen]                    ::      =>(v {p.gen})
           [%cnhp [%limb %b] [%limb %c] ~]               ::    (b c)
         :+  %cnts  [%a ~]                               ::  a(,.+6 c)
         [[[[%| 0 ~] [%& 6] ~] [%limb %c]] ~]            ::
       ==                                                ::
     ::
-        {$smsm *}                                        ::                  ;;
-      :+  %tsgr  [%ktts %v %$ 1]                         ::  =>  v=.
-      :+  %tsls  :+  %ktts  %a                           ::  =+  ^=  a
-                 [%tsgr [%limb %v] p.gen]                ::  =>(v {p.gen})
-      :+  %tsls  [%ktts %b [%tsgr [%limb %v] q.gen]]      ::  =+  b==>(v {q.gen})
-      :+  %tsls                                          ::  =+  c=(a b)
+        {$smsm *}                                       ::                  ;;
+      :+  %tsgr  [%ktts %v %$ 1]                        ::  =>  v=.
+      :+  %tsls  :+  %ktts  %a                          ::  =+  ^=  a
+                 [%tsgr [%limb %v] p.gen]               ::  =>(v {p.gen})
+      :+  %tsls  [%ktts %b [%tsgr [%limb %v] q.gen]]    ::  =+  b==>(v {q.gen})
+      :+  %tsls                                         ::  =+  c=(a b)
         [%ktts %c [%cnhp [%limb %a] [%limb %b] ~]]      ::
       :+  %wtgr                                         ::  ?>(=(`*`c `*`b) c)
         :+  %dtts                                       ::