Handle %spot and %mean hints to produce stack traces

hoon/scaffolding/azimuth-pill.hoon

@@ -1,7 +1,6 @@
-::  A small pill that runs a snasphot of azimuth state against a few
-::  tens of thousands of logs.  Requires naive-cradle.hoon,
-::  mainnet.azimuth-snapshot, and log.jam from this scaffolding
-::  directory.
+::  A small pill that runs a snasphot of azimuth state against a few tens of
+::  thousands of logs.  Requires naive-cradle.hoon,
+::  mainnet.azimuth-snapshot, and log.jam from this scaffolding directory.
 ::
 /+  naive=naive-cradle, orig-naive=naive, ethereum, dice
 /*  snap  %azimuth-snapshot  /lib/mainnet/azimuth-snapshot
@@ -236,7 +235,6 @@
   ++  swp                                                 ::  naive rev bloq order
     ~/  %swp
     |=  [a=bloq b=@]
-    ~>  %sham.%swp
     (rep a (flop (rip a b)))
   ::
   ++  met                                                 ::  measure
@@ -312,7 +310,6 @@
   ++  lent                                                ::  length
     ~/  %lent
     |=  a=(list)
-    ~>  %sham.%lent
     ^-  @
     =+  b=0
     |-
@@ -322,7 +319,6 @@
   ++  slag                                                ::  suffix
     ~/  %slag
     |*  [a=@ b=(list)]
-    ~>  %sham.%slag
     |-  ^+  b
     ?:  =(0 a)  b
     ?~  b  ~
@@ -331,7 +327,6 @@
   ++  snag                                                ::  index
     ~/  %snag
     |*  [a=@ b=(list)]
-    ~>  %sham.%snag
     |-  ^+  ?>(?=(^ b) i.b)
     ?~  b
       ~_  leaf+"snag-fail"
@@ -349,7 +344,6 @@
   ++  flop                                                ::  reverse
     ~/  %flop
     |*  a=(list)
-    ~>  %sham.%flop
     =>  .(a (homo a))
     ^+  a
     =+  b=`_a`~
@@ -360,7 +354,6 @@
   ++  welp                                                ::  concatenate
     ~/  %welp
     =|  [* *]
-    ~>  %sham.%welp
     |@
     ++  $
       ?~  +<-
@@ -371,7 +364,6 @@
   ++  reap                                                ::  replicate
     ~/  %reap
     |*  [a=@ b=*]
-    ~>  %sham.%reap
     |-  ^-  (list _b)
     ?~  a  ~
     [b $(a (dec a))]

hoon/scaffolding/baby.hoon

@@ -1,4 +1,6 @@
-::  A trivial working pill which requires no jets
+::  A trivial working pill which requires no jets. Requires cradle.hoon
+::  from this scaffolding directory.
+::
 /+  cradle
 !.
 =/  core

hoon/scaffolding/cradle.hoon

@@ -1,3 +1,6 @@
+::  This file is just tiny.hoon from urbit/urbit (but with sham jets). Required
+::  to run baby.hoon as an Arvo.
+::
 !.
 =>  %a50
 ~%  %a.50  ~  ~
@@ -206,7 +209,6 @@
 ++  swp                                                 ::  naive rev bloq order
   ~/  %swp
   |=  [a=bloq b=@]
-  ~>  %sham.%swp
   (rep a (flop (rip a b)))
 ::
 ++  met                                                 ::  measure
@@ -282,7 +284,6 @@
 ++  lent                                                ::  length
   ~/  %lent
   |=  a=(list)
-  ~>  %sham.%lent
   ^-  @
   =+  b=0
   |-
@@ -292,7 +293,6 @@
 ++  slag                                                ::  suffix
   ~/  %slag
   |*  [a=@ b=(list)]
-  ~>  %sham.%slag
   |-  ^+  b
   ?:  =(0 a)  b
   ?~  b  ~
@@ -301,7 +301,6 @@
 ++  snag                                                ::  index
   ~/  %snag
   |*  [a=@ b=(list)]
-  ~>  %sham.%snag
   |-  ^+  ?>(?=(^ b) i.b)
   ?~  b
     ~_  leaf+"snag-fail"
@@ -319,7 +318,6 @@
 ++  flop                                                ::  reverse
   ~/  %flop
   |*  a=(list)
-  ~>  %sham.%flop
   =>  .(a (homo a))
   ^+  a
   =+  b=`_a`~
@@ -330,7 +328,6 @@
 ++  welp                                                ::  concatenate
   ~/  %welp
   =|  [* *]
-  ~>  %sham.%welp
   |@
   ++  $
     ?~  +<-
@@ -341,7 +338,6 @@
 ++  reap                                                ::  replicate
   ~/  %reap
   |*  [a=@ b=*]
-  ~>  %sham.%reap
   |-  ^-  (list _b)
   ?~  a  ~
   [b $(a (dec a))]

hoon/scaffolding/naive-cradle.hoon

@@ -1,6 +1,9 @@
+::  This file is a combination of tiny.hoon and naive.hoon from urbit/urbit
+::  (but with sham jets). Required to run azimuth-pill.hoon as an Arvo.
+::
 !.
 !=
-:: begin cradle.hoon
+:: begin tiny.hoon
 =>
 =>  %a50
 ~%  %a.50  ~  ~
@@ -209,7 +212,6 @@
 ++  swp                                                 ::  naive rev bloq order
   ~/  %swp
   |=  [a=bloq b=@]
-  ~>  %sham.%swp
   (rep a (flop (rip a b)))
 ::
 ++  met                                                 ::  measure
@@ -285,7 +287,6 @@
 ++  lent                                                ::  length
   ~/  %lent
   |=  a=(list)
-  ~>  %sham.%lent
   ^-  @
   =+  b=0
   |-
@@ -295,7 +296,6 @@
 ++  slag                                                ::  suffix
   ~/  %slag
   |*  [a=@ b=(list)]
-  ~>  %sham.%slag
   |-  ^+  b
   ?:  =(0 a)  b
   ?~  b  ~
@@ -304,7 +304,6 @@
 ++  snag                                                ::  index
   ~/  %snag
   |*  [a=@ b=(list)]
-  ~>  %sham.%snag
   |-  ^+  ?>(?=(^ b) i.b)
   ?~  b
     ~_  leaf+"snag-fail"
@@ -322,7 +321,6 @@
 ++  flop                                                ::  reverse
   ~/  %flop
   |*  a=(list)
-  ~>  %sham.%flop
   =>  .(a (homo a))
   ^+  a
   =+  b=`_a`~
@@ -333,7 +331,6 @@
 ++  welp                                                ::  concatenate
   ~/  %welp
   =|  [* *]
-  ~>  %sham.%welp
   |@
   ++  $
     ?~  +<-
@@ -344,7 +341,6 @@
 ++  reap                                                ::  replicate
   ~/  %reap
   |*  [a=@ b=*]
-  ~>  %sham.%reap
   |-  ^-  (list _b)
   ?~  a  ~
   [b $(a (dec a))]